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国务委员、国家科委主任 
宋健正月初三视察激坊计葬机公司 


1990 年 1 月 29 曰（正月初三），国务委员、国家科委主任宋徤，在山糸省副省长高昌礼、濰坊市市长那枝 
芳等领导同志陪同下，在上午 8 : 35-10 = 15, 对潍坊计算机公司进行了视察，给正在欢乐、祥和、文明的气 
氛■中喜度春节的干部、职工送来了党和政府的关怀和慰问。公司经理王新华向宋徤同志全面汇报了公司概 
1况和产品的开发、生产、洤營情;兄。宋徤同志兴致勃勃地参观了华光 W 型计算机一激光汉字编辑排版系统的 
操作表演，程控交换机的生产现场和无线电话机产品样品。在视察中，宋健同志不时向王新华等企业负责同 
志关心地询问有关情况，对公司工作给予了充分地肯定，对有关产品的发展和建设作了重要指示。融洽的气 
氤中不时发出欢快的笑声。 

宋徤同志说，山东省的电子工业，你们这个公司占有很重要的位置。你们是一个高科技企业，要当仁不 
让地引导潮流。公司的市场很大，能力也可以，但要有再发展，要搞大生产。要继续吸引人才，眼界要再开阔 
一 点，条件要好一点 。 

' ‘宋徤•同志对型照排系统和程控交换机的技求开发和市场开发非常重视，说照排要开辟国际市 
场，程控要枪速度，并对一些做法提出了重要的意見。他还向公司领导指出，照排是你们同北京大学共同研 
制的，要进一步搞好同北京大学的合作，通过 e 密切地联合开发，使汉字照排这一世界先进地位的电子出版 
系统更加完姜，为四化服务。 

对微型计算机的生产，宋徤同志说，计算机主要是应用，包括维修服务，这一点要解决好。 

宋徤同志的视察，使濰坊计算机公司的千部、职工受到很大鼓舞。公司经理王新华向宋徤同志表示，一 
定把党和政府的关怀变为行动，发动职工充服困难，加紧工作艰苦奋斗，把企业办好，为国家多做贡献。 

(华生） 


新闻报道 


中华软件前途无量 

-中华学习机普及协会软件银奖评比活动巡礼 


中国教育电子公司 赵国梅 


一九九0年一月十六日在广东省惠州市师专礼堂 
隆重举行了中华学习机协会软件银奖评比颁奖仪式。 
从获奖者年青而又激动的脸上,我们看到的是信心和 
力量„中华学习机软件事业后继有人，前途无量！ 

中华学习机是我国自行开发的国产微机机种，在 
短短的几年中，以她的优秀的功能、合理的价格及良好 
的服务贏得了数万用户。已成为中小学师生的良师益 
友和家庭的好参谋，为充分发挥机器的社会效益，大力 
开创中华软件事业已成为当务之急。 

近年来，已有相当一批热心于中华软件工作的同 
志为中华学习机开发了一大批软件。为鼓励开发者的 
积极性，早日形成软件市场，中国中华学习机普及协 
会、机电部中国教育电子公司、国家教委中学计算机研 
究中心及中国科协决定于89年下半年联合举办首届 
中华学习机软件银奖评比活动,并定于一九九0年一 
月在广东惠州举行颁奖仪式。 

消息发出后得到强烈的反响，一个个包装精美的 
小盒陆续地从全国各地寄到了评奖办公室。有些来自 
遥远的新疆，有的来自祖国的最南方海南岛。它们的主 
人有老师、学生、科研人员等。每个盒中装的盘片都是 
他们劳动的结果，也是他们为中华软件献上的一颗心。 

到10月30日报名截止日期为止，办公室共收到 
参选软件将近300个。其中半数以上为教育辅助软件， 
说明中华学习机在人们心目中已成为能辅助学习增长 
知识名符其实的学习机。大量的系统工具软件参选，也 
标志了中华软件质量正在迅速提高。 

事实上，这次参选软件中确有不少佳作。如“气体 


性质的自我测试”不仅屏幕处理好，而且还为用户在屏 
幕上配置了计算器，以便于计算，“五笔字形文章编辑 
系统”实用性强深受用户欢迎， “ ACE 工具软件”为软 
件开发提供方便，“通用习题库系统”为软件制作的机 
械化探索道路等。与前几年相比,软件的数量和质量都 
有了很大的提高。更喜人的是，在大量的软件后面，可 
以看到一支热心于中华软件事业的队伍正在茁壮成 
长 

°今天的成绩来自不易，其中亦包含了伯乐们数年 
来的辛勤培育。就说全国教育软件评申委员会吧！她 
几乎是中华学习机的同 令人。 三年来，已通过了 50多 
个好教学软件，并为教育软件的评审、开发制定了一整 
套办法，这在国外也是不多见的。在这次评奖工作中， 
伯乐们精心制定评审标准，细致评测、反复比较。好的 
软件他们要求精益求精，因为得奖不是目的，更主要的 
是为今后的开发工作树立榜样。对于尚存缺点的软件， 
他们大力扶植，希望有更多的佳作为用户服务。既使对 
暂不够条件的软件，他们也同操细心评议，积极提出意 
见，鼓励作者继续努力。他们不仅在评奖，更希望通过 
评选实践能为软件事业的的发展开拓出一条路。在讨 
论通过获奖名单的会上,他们提出的不仅是一张获奖 
名单，还有就软件开发中立题、脚本、评审标准以及开 
发队伍组织等一系列工作的一整套建议。 

评奖工作已经结束了。但今后的路还很长很长。愿 
一切热心于中华软件事业的人们团结起来，脚踏实地 
做出更大的成绩。 




• 程序剖析与编程技巧 • 


中华学习机 《CC 一 WS 》 中英文编辑软件的设计 

柳州高中庞中坚 周煜 


自中华学习机问世以来，便以其低廉的价格、实用 
的功能受到人们的青睐，并逐渐进入到学校、机关、家 
庭……但目前中华学习机的软件尚嫌不足，应用范围 
的还较窄，尤其是较强的汉字处理能力还没有充分发 
挥出来。为充分利用中华学习机的汉字系统，推广其应 
用范围，在该机上开发字处理软件是完全必要的，也是 
可行的。为此，我们计算机室经过半年的努力，在中华 
学习机上研制了 《CC 一 WS 》 中英文编辑软件。 

一、 软件运行环境 

《 CC — WS 》 中英文编辑软件的硬件 环境: CEC — 肛 
(或其兼容机)带显示屏，以及磁盘驱动器、打印机一 
台。使用时，启动本软件系统盘即可。 

二、 软件总体设计思想 

根据中华学习机的实际情况，并参照、分析了长城 
机上的 WORDSTAR 、 电子表格等软件，我们得出了文 
字处理软件的一般步骤，进而得出了本软件需要达到 
的功能： 

1•接收用户输入的 信息： 

2、 对接收到的信息进行各种编辑处理，即按用户 
的要求随意进行增、删、改等操作> 

3、 自动排版，打印输出。 

三、 软件实现方法及研制过程 

由 于中华学习机在软硬件方面的限制，我们对照 
长城机的 WORDSTAR 软件，提出了符合中华学习机 
实际情况的切实可行的解决办法（见表），并在研制中 
实现。 



长城机 

中华学习机 

编辑 

方式 

硬件条件 

分辨率高，满屏 
显示汉字960个 

分辨率低，满屏 
显示汉字仅170个 

软件条件 

釆用全屏幕编辑 

采用行编辑方式 

存贮 

方式 

硬件条件 

内存大 

内存较小 

软件条件 

与全屏幕显示建立 
一一对应的缓冲区 

采用较灵活的 
链表结构 

打印输出方式 

直接从内存区输出 

利用指针自动 
排版输出 


根据总体设计和可行性分析，我们采用下列措施 
实现了总体设计 思想： 


1.开辟专门的信息存贮区，以存放输入的信息，存 
贮区采用链表式结构，分成链指针区和信息内容区两 


部分，其结构示意如图 所示。 

第-行首址指针 第址指针 行址指针 


链指针区 

低位 

高位 

低位 

高位 


低位 

高位 

[ 



/ 

/ 





信息内容区 

第一行内容 

00 

* 謂 

00 


00 ' 

第 n 行内容 


链表结构内存区*意图 


链指针区共256字节，每两字节存放某一行号的 
内容在信息内容区中的首地址。因此，本软件每次最 
多可处理128行信息。信息在信息内容区中首尾相接 
地存放，每两行内容用“00”分隔。这样，相邻的两个链 
指针之差再减1,便得到前一行号内容的长度。这种链 
表结构便于査找和进行各种浮动操作。因此，信息的存 
入各种编辑处理和打印输出均以此种链表结构为核 
心，围绕其进行。 

2. 接收使用者输入的信息。实现这一步骤的 方法： 

(1) •键盘输入，同时进行一些基本的编辑处理，如 
ESC 处理,移动键处理和行作废 ( CTRL —— X )处理。 

(2) . 将使用者输入的信息转存到信息内容区存 
放，以便在往后进行系统编辑处理和打印输出时使用。 

3. 为使用者提供一批编辑处理、磁盘操作的命令， 
以便保证该软件使用的方便和灵活。这些命令 如下： 

编辑命令 


F 2， F 3 中文转换 

ESC 屏幕编辑 

ctxl - x 行作废 

— 行编辑 

士 n 行号？ 

> n 转到第 n 行 

=最大行号 

L 显示若干行 

* 删除一行 

E 删除若干行 

S 査看空间 

H 看命令表 

C 清屏幕 

F 字符串替代 

G 定打印格式 

P 打印文件 

• 退出软件 

磁盘操作 

K 到磁盘目录 

D 删除文件 

W 将文件存盘 

R 读磁盘文件 


伪指令 

’ n 段首格式 

T 换页 

注释行 
’？ n 空 n 行 

' A 文件链接 


3 








• 程序剖析与编程技巧 • 

谈谈计算机病毒(续) 

石家庄铁道学院崔来堂 


三、对园球病毒的消毒和免疫 

(一) 、硬盘消毒 

如果硬盘被感染，可用下面方法 消毒： 

① 用写保护的健康系统软盘使微机冷启动（此步 
对下述方法都相同）； 

② 在硬盘建子目录(病毒一般不侵害子目录），把 
硬盘上要保留的文件用 COPY 命令拷入该子目录中； 

③ 用 COPY 命令把硬盘上目录中的内容，拷到事 
先格式化的健康的软盘上； 

④ 格式化硬盘(必要时先进行物理格式化）； 

⑤ 软盘内容拷回硬盘。 

如果硬盘内容要保留的较多，可使用硬盘备份和 
恢复命令 BACKUP 、 RESTORE 。 

(二） 、软盘消毒 

① 在硬盘上建子目录，把带毒软盘上的文件拷入 
该子目录； 

② 软盘格式化； 

③ 硬盘子目录中的内容拷回 软盘； 

④ 删除硬盘的相应子目录。 

上述方法消毒彻底，但工作量大，费时间。下面的 
方法比较简单、快速，软硬盘都适用。 

(三） 、用 debug 修改病毒模块，消毒或免疫 

1.方法一 

用版本号相同的健康系统盘，对带毒盘的 BOOT 
区重写，把病毒模块 BV 1 复盖掉，使它既不能传染，也 


上述命令适当地搭配使用，可完成多种编辑处理， 
同时还保证了编辑处理的灵活性、方便性。在这些命令 
中,编辑命令主要依靠前面所述的链接表结构来完成 
各种浮动操作;而磁盘操作命令则按使用者的要求进 
行一些简单必要的磁盘操作。4•打印输出。这是文字 
处理的最后一首工序。本软件为了使打印输出的格式 
更加多样化,设置了 8种打印格式，在打印中还可以使 
用5个伪指令，其中值得一提的是 n " 和"' A " 两个伪 
指令。 ' n ( n 是不大于8的自然数)是段首格式沩指令。 
打印时，若在行首遇到此伪指令，则在此分段，当前行 
号另起一行打印;若无此伪指令，则系统认为当前行的 
内容属于上一文段，紧接着上一行号的内容打印，这 
样，可把较长的文段分在多个行号输入，输出时可合在 


不能发病。步骤如下(健康盘插 A , 带毒盘插 B ): 

A>DEBUG I 

— L 100 0 0 1 | 把 A 盘0号扇区的 

BOOT 程序装入内存 CS : 100处 

— W 100 1 0 1 | 由内存写到 B 盘 

BOOT 区。 

-Q I 退回操作系统 

这方法快，但消毒不彻底,也不能免疫。 

2. 方法二 

园球病毒的关键，在于它修改 INT 13 H 中断向量， 
设法破坏掉它这一功能，它就会失去魔力，不能再传 
染，也不能干扰屏幕显示和降低程序执行速度;它的存 
在，就只是使机器多费点启动引导时间，多占盘空 
间和 2 K 内存空间。具体方 法是： 

A > DEBUG ； 

— LI 00 0 0 1 j 将 A 盘 0 号扇区内 
容装入内存 CS :100 处。 

— D 100 | 显示从 CS : 100开始地址中的内 

容。若101中的内容为 2 CH , 表示该扇区为正常的 2 • 
XX 版本的 BOOT 模块;若为 1 CH , 表示己被感染，该扇 
区是园球病毒模块 BV 1。 BV 1 的 HCH — WEH 用于修 
改 INT 13 H , 用下述方法把这一小段程序抹掉(改成空 
操 作）： 

— F 17 C 18 E 90 I 


一 起输出 / A 文件名，是文件链接伪指令。打印时，如 
遇到此伪指令，则暂停打印，从磁盘中将 ' A 后所示的 
文件调入内存，然后继续打印新文件，由于可使用文件 
链接伪指令，使用者可将较大型的文稿分成几个小文 
件，分别存入磁盘中，在每个小文件未尾使用' A 伪指 
令进行链接，就可以把较大的文稿一次全部打印完 
成，为处理大型文件提供了一种实用的方法。 

《CC 一 WS 》 中英文编辑软件可能还有某些不够完 
善的地方,但我们希望它能为中华学习机软件发展作 
抛砖引玉之举^ 

注 :价格 35元/盘,需要者，请与 《中 华学习机》杂 
志社联系 
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或把这一段绕 过去： 

— E 17 C I EB 11 j 即改为 JMP 

018 FH 

W 100 0 0 1 { 

—Q 


因 0 号扇区不再重新接受病毒模块 BV 1 ，这样修 
改后的磁盘，不会再被感染，可能免疫。 


3. 方法三 


加免疫标志 


A>DEBUG ； 


- L 1000 0 0 1 | 

把原 BOOT 区内容装入 

内存 


— D 2 F 0 2 FF | 

看该区最后16个字节 


内容。含 “ COM ” 字串，表示未受 感染; 否则，该区为病 
毒模块 BV 1, 此时， 2 F 9 H 、2 FAH 字节内容是病毒模块 
BV 2 所占的扇区号 （2 FAH 内容为高8位， 2 F 9 H 内容 
为低8位），再加1,得到原 BOOT 模块被迁入的扇区 
号，设为 S 。 

— L 100 0 S 1 { 将 S 扇区的内容装入内 

存 

— D 2 F 0 2 FF j 看 S 扇区内容，若含 
“ COM ” 字串，表示确是 BOOT 程序的副本 

— E 2 FC j 57 13 j 将 2 FCH 、 
2 FDDH 内容改为5713,加上免疫标志(如果上一步未 
看到 “ COM ”， 不能做此步）。 

— W 100 0 0 1 | 将 S 扇区内容写回 

原 BOOT 区 
—Q 

这样，原 BOOT 区又恢复了正常内容，复盖了病毒 
模块 BV 1; 又因 2 FCH ,2 FDH 内容为 W 13 时，该扇区写 
保护，病毒不能再侵入,因此具有免疫能力。 

四、病毒的判断和预防 

当出现下述现象时，表示磁盘或机器很可能已染 
上病毒，应迅速采取措施消毒。 


① 系统启动或盘访问的时间变长。 

② 程序运行变慢。 

③ 系统启动时，盘指示灯总亮，但引导不成功。 

④ 屏幕出现异常信息或图象。 

⑤ 出现明显噪声。 

⑥ 盘空间或内存空间变小。 

⑦ 文件长度增加或内容被修改 

⑧ 某些文件被删除。 

⑨ 程序运行的结果数据出现异常。 

⑩ 运行中常无故死机。 

为了预防病毒蔓延，可采取下述 措施： 

① 尽量不使用外界的软盘,也不把软盘供外界使 
用，各台机器的软盘要互相隔离，避免交叉感染； 

② 不要随意拷盘，必要时，应事先检査源盘和机 
器，保证无病毒，或先行消毒； 

③ 从外界搬入机房的机器，应消毒后，或检查无毒 
后，再使用； 

④ 尽量把软盘贴上写保护膜； 

⑤ 尽量不用软盘启动机器，必要时,应保证系统软 
盘为健 康盘； 

⑥ 禁止在工作机上运行各类游戏软件(一些病毒 
常隐藏在游戏软件中）； 

⑦ 联网前对各台机器严格检査、消毒，对网上使用 
的软盘更要特别谨慎； 

⑧ 对多次运行的重要软件和结果,应做软盘备份 
(备份前要保证不带病毒），以便被感染后恢复； 

⑨ 经常进行检测，一旦发现带病毒的机器或盘后， 
应迅速隔离,并尽快消毒。 

计算机病毒不单纯是一个技术问题，更重要的还 
是一种社会现象和管理」可题，目前已经相当严重，刻不 
容缓，必须引起各有关部门和人员的密切关注，从管理 
和技术两个方面紧急采取措施，迅速控制其蔓延，进行 
消毒和免疫。否则，将对我国计算机领域造成重大危害 
和难以估价的损失。 （全文完） 



机械电子部、卫生部、国家教委、中国科协、全国妇联委托中华学习机普及协会，书于“六一’’前夕在京、津、沪 
地区举办“儿童中华学习机表演赛”。 

自肋年代中期以来，11万台中华学习机进入了中小学、家庭和一些社会团体，在每年各地举办的夏令營、冬 
令營和一些活动中，中华学习机的各种竞赛是必不可少的。这次表演赛的参赛者年龄限制在3〜8岁，表演赛的内 
容以益智软件为程序基础，考察击键方法，开机顺序，录入速度等等，评委将根据年龄段来进行评分。 

北京地区表演时间定于5月27曰。 
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• 程序剖析与编程技巧 • 

中华机与苹果机的不同与转换 

广州三十二中 谢敬辉 


中华机 CEC — I 与苹果机 APPLEIIe 是兼容机，但 
与 APPLE H 却是不同的，不论硬件、软件上都有所区 
别，但是可找到转换的方法。 

1. 键盘。中华机比苹果机多了上下箭头及 F 1、 F 2、 
卩3、以^5、7£81'、丁 八 8、<?111丁、中文、西文等键。 

2. 语言。中华机用的 CEC — BASIC 比 APPLE 用的 
APPLEBASIC 多了 PLAY , MUSIC . GAME , LG 及存取磁 
带文件带文件名这几条指令。当在中文下，还可显示和 
使用中文，成为中文 basic 。 中华机支持 LOGO 语言， 
已固化。 

3. 外设。中华机只支持单驱动器，而打印机须外插 
打印卡，与苹果机的打印卡不通用。若须其它槽口卡须 
扩充硬件。而苹果机插上 CEC 中文卡可使苹果机成为 
中华机。 

4. CEC — BASIC 解释系统及监控系统。 

由于 BASIC 版本不同，中华机可在 16 K 卡上存入 
苹果机中$ D 000— $ FFFF 部分的 BASIC 及监控后用 
16 K 卡代替 ROM 便可使中华机成为苹果机。而用同样 
方法却不能使苹果机成为中华机。为什么呢？因为中 
华机中原来存放命令名，入口地址、出错信息地方与苹 
果机不同。苹果机的存放方法详见《苹果园》总第32期 
«关于 APPLESOFT BASIC 解释程序中各功能于程序 
入口问题的答复》一文。而中华机则存于内部 ROM 
中,要执行 STA $ C 007 才可看到。这块内部 ROM 中还 
存有其它东西，以下介绍，执行 STA $ C 006 置换回原 
来的 I/O ROM 。 

内部 ROM 分布 （ $ C 100- $ CFFF )： 

$ C 100 — $ C 1 FF 无内容。 

$ C 200— $ C 2 DD 为 CEC—BASIC 入口 址址表。 

$ C 300— $ C 49 D 为 CEC — BASIC 命令名的 ASCII 
码表。 

$ C 4 F 0— $ C 5 F 5 为 CEC — BASICC 出错信息 
ASCII 码表。 

$ C 600— $ C 6 F 3 为 LG 命令转入 LOGO 语言功 
能子程序。 

$ C 700— $ C 7 FF 无内容。 

$ C 800-$ C 88 E 新增开机磁盘假读功能子程序， 
当驱动器中无磁盘时直接进入 BASIC 。 

$ C 895 — $ C 9 F 5 磁带文件带文件名 SAVE 、 
load 命令的扩充功能程序。 


$ CA 00— $ CBOT 不须 INTBAASIC 的小汇编程 
序。 

$ CB 00— $ CFD 2 为 CEC — BASIC 新增自检程序， 
按 CTRL — RESET — TEST 执行此功能。 

由此内容知不可在 16 K 卡上改 BASIC 命令名及 
地址、亦不可用于苹果机上。有些命令与苹果机不同， 
为方便使用，现列出不同之处。 

TEXt 入口 $ D 2 B 4( S $ F 399 中华机两址即可， 
但 $ D 2 B 4 从中文 返回西 文 ）； HOME 入口 $ D 27 E (原 
$ FC 58, 中华机用以清高分辨显示 区）； SAVE 入口 
$ D 26 C (原 $ D 8 C 9 ) ;新命令 MUSIC 入口 $ DOEC , 
PLAY 入口 $ DOCE , LG 入口 $ D 10 C , GAME 入口 
$ D 2 A 3( 此命令功能同 CTRL — G ), 但某些情况下不 
能使用。 

另外, CEC 监控还可使用单步跟踪命令 S , 跟踪命 
令 T , 可在苹果机上将中华机监控$ F 800- $ FFFF 拷 
上 16 K 卡再加上原$ D 000— $ F 7 FF 的 BASIC 解释系 
统使用，但会遇上某些因地址差异而造成的问题。由于 
苹果兼容机多所以最好不用此法。 

5. 中文系统。中华机进入中文状态后占用高分辨 

次页区显示， $9200- $94 FF 为汉字显示映射区， 
HIMEM 为$ 9200, $ 38 F $ 3 CF 为汉字程序管理工 

作单元，零页亦有$06, $ D 7, $ ED -$ EF , $ F 9 — 
$ FF 被占用。 BASIC 语句中 FLASH , PRIN # 语句 
不能使用。 GAME 在某些情况下不能使用。 

6. 磁盘操作系统。中华机西文下完全支持 DOS 。 中 
文下由于 $9200—$94 FF 被占用，不能用 MAXFILHS 
扩充文件缓冲区个数，但$ 9500 — $ 95 FF 可供自由使 
用不被破坏。若一定要用3个文件缓冲区以上，可将文 
件缓冲区搬至$9200下设置。最简单方法为将缓冲区 
最高址存 $9 D 00 及 $9 D 01， 调用 $ A 7 D 4 重建文件缓 
冲区。 

另外，由于中华机字符显示子程序$ FDED 可显 
示中西文字符，所以只须将 DOS 的错误信息码表改为 
中文 ASCII 码便可使 DOS 出错信息汉化。即西文软件 
汉化途径为将原来的西文 ASCII 码改为中文 ASCII 码 
(即 $ F + 区码+位码)便 nf 。 

7•小结。以上6点显示了中华机与苹果机的不同 
之处及转换应用。但只道出了简单的道理，没有讲出详 
细操作方法，谨供各位读者参考。 
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• 程序剖析与编程技巧 • 


IBM —PC/XT 

按页显示命令的改进 

襄阳师专电脑中心何跃华 


_在使用 CC — DOS ( V 2. 1) 操作系统下，査看显示内 
容时，如用 DIR (显示目录）， ENL 1 N (行编辑）， C — 
WORDSTAR (文本编辑)等命令按页显示时出现屏幕 
上滚现象,不能园满完成按页显示的功能，使査看显示 
内容很不方便。 

针对这问题，我分析了 COMMAND . COM 文件，发 
现在 COMMAND . COM 文件中，将每页定义成23行， 
用这些命令显示一页内容时，即一次显示23行内容， 
而 CC - DOS ( V 2. 1), 每屏仅]0行，所以这些命令在 
CC 一 DOS 支持下按页显示时就不能实现，在 com ¬ 
mand . COM 文件中与页定义有关的有下列两段程 
序： 


50F4: 

： 1AE8 

A1C62C 

MOV 

AX,[2CC6] 

50F4. 

； 1AEB 

0B06CC2C 

OR 

AX,[2CCC] 

50F4 ： 

： 1AEF 

A3B72D 

MOV 

[2DB7]，AX 

50F4 ： 

1AF2 

C606BF2D17 

MOV 

BYTE PTR 

[2DBF]，17 

50F4 ： 

1AF7 

A801 

TEST 

AL,01 

50F4 ： 

1AF9 

B001 

MOV 

AL,01 

50F4 ： 

1AFB 

7402 

JZ 

1AFF 

50F4 ： 1AFD 

B005 

MOV 

AL,05 

50F4. 

： 1AFF 

A2D662C 

MOV 

[2CD6],AL 

50F4. 

• 1B02 

A2D52C 

MOV 

[2CD5],AL 

50F4- 

•1B05 

C706D72C0000 

MOV 

■# 

WORD PTR 

[2CD7],0000 

50F4 ： 1C43 

F606B72D02 

TEST 

BYTE PTR 

[2CD7],02 

50F4 ： 

,1C48 

7419 

JZ 

1C63 

50F4 ： 

： 1C4A 

FEOEBF2D 

DEC 

BYTE PTR 

[2DBF] 


50F4 ： 1C4E 

7513 

JNZ 

1C63 

50F4 ： 1C50 

C606BF2D17 

MOV 

BYTE PTR 




[2DBF]，17 

50F4 ： 1C55 

BAE026 

MOV 

DX ， 26E0 

50F4 ： 1C58 

E84817 

CALL 

33A3 

50F4 ： 1C5B 

B8080C 

MOV 

AX ， 0C08 

50F4 ： 1C5E 

CD21 

1NT 

21 

50F4 ： 1C60 

E82D00 

CALL 

1C90 


只要将这两段程序中的 1 AF 2 和 1 C 50 的两条指 
令 MOV BYTE PTR [2 DBF ] ，17 ( 十六进制）均改为 
MOV BYTE PTR [2 DBF ],09 即可，（把页长定义为 9 
行是因为在 CC 一 DOS 操作系统下，屏幕仅有10行(不 
算提示行），去掉一行为当前行，故能显示的信息为9 
行)。 

1. 首先将 DEBUG . COM 和 COMMAND . COM 文件 
拷到一张软盘上，并将软盘放在 A 驱动器中。 

2. 利用 DEBUG . COM 程序调试 COMMAND . 
COM ： 

A>DEBUG A ： COMMAND . COM | 

— alAF 2 I 

50 F 4： 1 AF 2 MOV BYTE PTR [2 DBF ] ,09 | 

50 F 4：1 AF 7 i 、 

— alC 50 \ 

50 F 4： 1 C 50 MOV BYTE PTR [2 DBF ],09 \ 

50 F 4：1 C 55 I 
—— w I 

wrting 4580 byt 93 

—q I 


• 邮昀信息 • 

《中华学习机》杂志程序软盘 

《中华学习机》杂志每期都刊登多个精彩、实用、有趣的软件，其中必有您所喜欢的。当您高兴地读完文章，欲 
进一步了解程序的奥妙时，看见那些冗长的程序清单，就倒了胃口！为了减少您的麻烦，节省您的宝贵时间，我们 
将每期出版的《中华学习机》杂志所登载的程序，全部录入在一张高质量的盘片上，随杂志同时出版销售，欢迎您 
购买《中华学习机》程序软盘。每张售价15元。 
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PC — 1&00 A 机的粮油结算程序 


__ g 禪海菊 

: ：5： K < Ik . o ；<[>'3； 


上海 青浦县粮食局 袭麟庚 




用 PC —15000 A 计算机编制的粮油结算程序，经 
多年应用，解决了交粮结算慢的矛盾。该程序不仅能 
计算机各种粮油的单价、金额，还能分仓，分乡、村、队， 
分品种统计2000多个数据。一人操作计算机代替了过 
去三、四个人的工作量，既快又正确，改变了粮油结算 
长期靠人工用算盘的老办法。以下谈谈该程序的编辑 
特点。 

_、将要求输入的量编成一串码，一次输人 


5%,含油为 37. 5%,则应送 9. 50. 5'37. 5 \，计算机照 
样能识别。又如第三步交售数为1000公斤，定购任务 
为400公斤，则送1000 * 400 \，计算机会先完成定 
购，多余的作议购；如任务为1500公斤，送成 1000 * 
1500 \，计算机也只将1000公斤全部作定购 结算; 如 
任务已完成,交售应作议购，则送1000 \即可。由于三 
步中在计算机里增加了一些判别智能，更能接近实 
际，也更方便了操作。 


粮油结算过程一般由粮油的水份、杂质、含油等质 
童指标计算出单价,然后由交售的数量分成定购、议购 
数,再分别乘以定、议购单价计算出金额，最后还要按 
乡、村、队、仓进行统计 ■■如 将以上多项分开输入要十余 
项，既麻烦又容易错，为此我们将要输入的数据性质分 
成三组:第一次将品种、仓号、村号、队号、编成一串“统 
计码”一并输入;第二次将水份、杂质等质量指标编成 
一串“质量码”输入;第三次将交售的数量和定购任务 
编成一串“数量码”输入。由计算机将各串码进行分解， 
无论什么品种，每笔都只需分三步将数码输入，既省输 
入时间，又简化了操作，也提高了输入的正确率。 

二、利用控制显示语句组成简单汉字，方便输人 
为了让初学者能看懂操作，我们在每次输入时，用 


三、保证计算统计数据正确性的措施 

1. 在每步输入后，由计算机将输入量分解，并判 
别输入量是否正常。如超出常规，则回到原状态等待 
新输入；如正常则将分解开的各数据或结果再次显示 
提供校对。这可避免误操作。 

2•在运算程序结束后才开始统计多种 数据。 即在 
每笔的第三步输入后才开始累计，所以在每笔的最后 
一个键未按前发现有错,都可重新输入而不会影响内 
存数据。 

3. 假如送完后才发现有错,此数据已统计到内存 
里，要冲掉也很方便。只需再操作一遍，即在第一、二步 
照原数码输入，第三步在原数码前加一负号输入就能 
将该笔冲掉。在程序里用 ABS 和 SGN 函数，保证了正 


控制显示语句组成要求输入的内容和格式，三次显示 
内 容为： 

步骤 第一段 第二段 

(一） 、 ¥ =( 上笔应付金额） ？村•队品仓 

(二） 、（村 ）_( 队 ）_( 品•仓） ？水什其扣 

(三） 、&(定购单价 )<( 议购单价）？总*定 

该机显示窗分成二段，第一段将计算结果(或上次 
输入量)显示,第二段在问号后显示要求输入的内容与 
格式。这可提醒操作员按正确的格式与内容输入。 

为方便操作，每次的输入量尽量按实际情况输入。 
如第一步，由12村3队交售1号品种进5号仓（当然 
这些代号是事先约定的），则送 12. 315 \，如不是3小 
队而是13小队则送 12. 1315 \，计算机都能正确分 

离。又如第二步，水份为9%,杂质为1%,含油为 
37%,则送行列9137 \，如水份改为 9. 5%，杂质为0. 


负数计算时一样。 

四、程序功能齐全 ，一 机多能应用更灵活 

根据上海分夏熟、早熟、秋熟收购的特点，我们将 
品种的质量标准、升扣计算中的一些参数编在置数语 
句里，只要改变这些参数，就能适合另一熟的收购用 
了。同样只要修改一个乡的每个村的小队数（即将各 
村中小队数目的置数语句修改)就能适合另一个乡的 
结算用。 

结算程序除有一个主程序用以运算统计外，还编 
制了打印乡、村、队、仓及能分别清除的副程序。可随 
时打印出各村、队、乡的入库进度和金额，提供给有关 
人员。可随时打印出入库仓的质量情况(如平均水份、 
杂质、含油等），提供给检化人员，及时清除，提高内存 
的利用率。为了在停电时也能使用，我们编了打印和显 
示两种输出程序，一旦遇到打印机故障或停电，计算机 
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中华学习机 CEC — I 配备的汉字打印驱动程序，具 
有如下 特点： 

1. 和汉字管理程序一起固化在 ROM 中 

2. 只能驱动如 FXT 100, MXT 100 的九针打印机， 
这类打印机在打印控制码上和 EPSON 九针系列兼容 

3. 汉字打印驱动 裎序入 口固定，不可修改。 

以上三 个特点，使得其他型号的九针打印机和二 

十四针打印机无法使用，而且如果用户要根据自己的 
需要编制驱动程序，也无法和现有的汉字系统衔接上。 
为了克服这些缺点，编制出析的打印驱动程序，而又不 
改变原汉字系统的功能，我们先对该系统进行简单分 
析： 

一、输人输出的 I / O 链 

在学习机有两对存储单元，用于控制字符的输入 
和输出，这两对单元称为 I / O 链， 其中： 

输入链亦称为 KSW ， 专用单元为$38和$39。 
输出链亦称为 CSW , 专用单元为$36和$37。 
在西文方式下，如果不运行 DOS , 则 I / O 链存放的 
是标准输入输出子程序 KEYIN 和 COVT 1 的入口地 


址，即 CSW 存放 COVT 1 的开始地址 $ FDF 0， KSW 存 
放 KEYIN 的入口地址 $ FD ] B 。 如果运行 DOS , 则 I/O 
链存放的是 DOS 输入输出子程序的入口地址，而 DOS 
中又有单元指向标准的输入输出子裎序，这就形成所 
谓的“链”。 

所谓汉字系统，和原西文系统相比较，只是修改了 
I / O 链，使其指向汉字系统的输入输出子程序，即 CSW 
存放汉字输出子程序的入 口地址 $ C 32 B , KSW 存放汉 
字输入子程序的入口地址$ C 303。 汉字系统，从系统 
软件角度而言，且由输入和输出子程序构成，其中，输 
入子程序管理键盘，包括各种汉字输入方法，而输出子 
程序则管理屏幕显示和打印输出，因此，汉字打印驱动 
程序和输出子程序有关。 

二、修改 CSW , 编制新汉字打印驱动程序 

析汉字打印驱动程序设计的要点，就是取代原有 
汉字系统的输出部分，使其作为本程序的一个子程序 
调用，这样，每个输出宇符，既可由原汉字系统输出， 
亦可由打印驱动程序处理。具体方法 如下： 


用于其他显示方式照样能工作。加上这些副程序，结算 
程序更完善了。 

五、节省内存，程序结构合理，统计数据更多 

由于 PC — 1500 A 是袖珍式，用户内存容量为 
22 K , 为能存放更多的数据，我们采用了以下方法节省 
了一些程序步和内存单元。 

1. 对具有相同（或相似的程序)尽量用循环语句或 
子程序，如打印乡、村、队的格式几乎一样，就采用一 
个打印子程序代替。 

2. 由于各村的队的数目不一样，如一个村一个村 
定变量则程序显得太长，如用最大的村中队的数目限 
定变量、势必有一部分变量要浪费不用，为此我们将一 
个乡的所有队一个接一个地连接，每个队的内存位置 
由输入的村号、队号计算出来，使内存每一个单元都得 
到利用。 

3. 利用 PC - 1500 机的特点节省内存。 

① A 〜 Z 固定变量可用〜 @(26) 数组变量代 
替，在程序中多次利用，节省了中间变量。 

② 利用判别比较不等式时产生1和0表示真和 


假，将比较条件语句和赋值语句合成一个赋值语句。比 
如： 

200 IF Z >33 THEN LET M =14 GOTO 220 
210 M = 13 

220 X X X X X X 

以上程序可改为 :200 M =13+( Z >3) 

③利用备用区和@键的特殊作用，在备用键里贮 
存开工、打印、清除等命令，省去了菜单程序，使用时只 
要按相应的键就能执行某个命令 - 

总之要编出好的程序，不但要求功能齐全，能统计 
出各种数据，发挥出计算机快而正确的特点，而且对使 
用操作要尽可能的方便。另外还要根据各种不同地区 
的不同结算方式，因地制宜修改成完全与当地情况一 
致的程序。如有的用比例价结算，有的则要分成定购、 
议购 结算; 有的要扣农业税，有的则要一部分付现金， 
一部分汇款;有的需要队多统计一些，有的则要仓多一 
点等等，为此我们将程序设计成块状结构，并将各方要 
求都预先设计在程序里，只需要根据各收购站提出的 
要求稍加修改，就完全能适合各收购站的情况,所以能 
得到很快推广应用。 
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1. 为了使新驱动程序替代原汉字系统的输出部 
分，在执行此驱动程序时，必须执行一段初始化 程序： 
CSWL EQU 36 

CSWH QQU $ 37 

DOSPORTL EQU $ AA 53 

DOSPORTH EQU $ AA 54 

HIMENL EQU $ 73 

HIMENH EQU $ 74 

DOSINTT QQU $ A 851 

ORG $8 E 00 

LDA # >START 

STA CSWL 

LDA # $〈START 

STA CSWH 

LDA DOSPOTRL 

STA SYSPORTL 

LDA DOSPORT 

STA SYSPORTH 

JSR DOS 1 NIT 

LDA # $00 

STA HIMENL 

LDA # $8 E 

STA HIMENH 

LDA # $0 

STA PRNTFLAG 

RTS 

新的汉字 系统 : START JSR SYSPRGRM 
LDA PRNTFLAG 
BNE RET 
JSR PRNTMAIN 
RET RTS 

SYSPRGRM JMP ( SYSPORTL ) 
PRNTMAIN i 

其中 PRNTMAIN 部分，用户可根据自己的需要自 
行设计，再加上前面的一段程序，产生新的驱动程序 

此初始化程序的功能就是修改输 出链： 

a ) 使 CSW 指向本驱动程序 

b ) 本程序若由 DOS 启动，则使 CSW 指向 DOS 输 
出口，调整 DOS 的入/出口。 


c ) 本程序常驻内存，位于 DOS 下方。因此，须修改 
BASIC 内存区高位指针 HIMEM ， 以防 BASIC 程序破坏 
驱动程序 

d ) 有关系统单元须初始化，如打印标志单元置0, 
表示不打印。 

2. 新的驱动程序，由如下两部分 组成： 

a ) 调用原汉字系统的显示功能 

b ) 根据标志位判断是否要执行新的打印驱动程 
序，示范如下： 

START JSR OLDSVSPRGRAM ; 谰 用原来的 
汉字系统的显示部分 

JMP NEWPRNT ;调用新的打印驱动程序 
OLDSYSPRGAM JMP ( SYSPORT ) ;其中 SYS - 
PORT 已在初始化程序中被初始化为 $ C 32 B 

NEWPRNT BIT PRNTFLAG ,其中 PRNT ¬ 
FLAG 用最高位表示是否 要打印 ，其值被初始化为零。 

BMI PRINT 

RTS 

PRINT i 

RTS 

3 . 新打印驱动程序和汉字系统的联接 

假定用户已按上述方法编制了 一个新的驱动程序 
且命名为 NEW PRINT 存于磁盘中。使用它时，只要在 
汉字系统下执行 “BRUN NEWPRINT ” ，新的打印程序 
便常駐内存，随时可以调用。 

在编制和使用新的打印驱动程序时，注意以下几 
个 问題： 

a >1659 单元是原打印驱动程序的控制单元，此单 
元在新的打印机驱动程序中，既不能再作为控制单元， 
也不能作为一般的数据单元使用，因为此单元中的值 
一定不等于零，系统将执行原来的打印驱动程序，出现 
了用户意想不到的情旯。 

b > 必须进入汉字系统后，启动打印驱动程序才有 
效，若在西文下启动，再进入中文后， I / O 链被重新初 
始化。 

c 〉 执行此驱动程序时，如在 BASIC 下执行 “BRVN 
驱动程序文件名”时，实际上只执行了初始化子程序， 
从 START 开始的驱动程序主体，则在每次调用输出子 
程序时，才被执行到。 
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I .实用程序. 著 


让 CEC - 1 机也有组合键 


湖北大学陈礼志 

.... .. 


CEC — I 机，功能齐全，深受学校、家庭 欢迎； 然而 
有一点不足，即无组合键功能，输入程序或输入立即执 
行命令时，需要一个一个地敲字符键。笔者编写下述程 
序,即可在 CEC - I 机上获得组合键功能(共78个）。若 
在 HELLO 程序中加入 PRINTCHR $ ( 4 ) ; ** BRUN 
ZHJ ”, 开机后即具有此功能。使用 CTRL—RESET 键， 
此功能消失，但用即可恢复。本程序操作简单， 
且便于记忆。（程序清单附后） 

使用说明:首先在监控状态下输入以下机器语言 
程序，然后 “BSAVE ZHJ , A $ 8 D 00, L $ 15 F ” 存盘或存 
入磁带中。运行后，每次按下 CTRL — A 键，再分别按 
26个字母键，可获得 2(5 种组 合键; 每次按下 CTRL — A 
键后，再分别按 CTRL —26个字母键又获得26神组合 
键:每 次按下 CTRt .-__ A 键后，再分别按 CTRL — 26个 
字母键又获得26种组 合键: 每次按下 CTRL — D 键后， 
然后按26个字母键，又可获得26种 DOS 命令键。不 
使用组合键，程序在内存中，并不影响其它使用。 

若需要在 APPLE 机上使用，有两种方法可 选用： 

1 . 将上述程序在 CEC — 1机上运行后•，进入监控， 
改 $28: 11,然后再 “BSAVE IHJ A $ 8 D 23 , L $ 2 CF 
\ ”，存入磁盘，这样即可在 CEC-I 机和 APPLE 机上 
通用。 

2. 将上述程序从$ 8 D 23 开始输入苹果机，再做如 
下 修改： $8 D 28： 11, $ DAF ： DO , $8 DB 3: CF , 用 
-BSAVE ZHJ , A $8 D 23, L $ 13 F ” 存入磁盘，使用方法 
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• 实用程 序 • 


中华机汉字库的打印 


宁波效实中学陈诗华 


中华机的一个显著特点是主机内固化有国标一、 
二级汉字。而汉字库的查阅和打印保存有时是很需要 
的。如何査阅和打印汉字库，现介绍其方法 如下： 

中华机上键入的汉字均以等长3字节的码保存在 
主机内存中，其格式为 ：7 F + 区码+位码，即用 CHR 
$ (127)+ CHR $ (区码） + CHR $ (位码)形式。这里的 
. CHR $ (127) 是汉字的识别符，区、位码使用中华机的 
机内码，该内码是从29到125,其中没有34、44、58。设 
X 为1〜94,函数 f ( x ) 值为内码，则其对应函数关系为 
f ( x ) = x +28+ ( x > 14) + ( x >27) 0 这里小括号内逻辑 
条件为真时值为1。如果我们把上述关系及汉字存放 
形式用在一个双重循环中，加以设计编程，就可实现查 
阅和打印汉字库的功能。该程序可査阅打印 ] 〜87区 
中任意几区的汉字和其它字符，并有容错功能和屏幕 
效果，可选择到打印机上输出，能自动跳过10〜15的 
空白区，输出时有暂停(按任意键)和退出（按 ESC 键） 
功能。运行结束等待，按 R 键则重新运行，按其它健退 
出。 

另外值得指出的是程序第5句保证了程序在中西 
文状态下，都能正常运行，这句中的 PRINT CHR 
$ (4) 广 PR # 3”不能用 PR # 3代替,否则使 DOS 命令 
失效。还有该句中的 PRINT:HOME 前的 PRINT 不能 
省去，否则使清屏功能失效。 


5 PRINT CHR$ (4);“PR#3”：PRINT : HOME 

10 DEF FN A(X)=X + 26+(X>5)+(X>]4) + (X>27): 
PRINT CHR$ (18) 

20 PRINT TAB(9) ; “ 中华机字库输出 卡”: PRINT: PRINT 
丁八 13(4) ; “ 请输入 <1 〜 87> 区段 ： （ 1^,1^)”； ： 01 = ?££& 
(36) + 1 :CV = PEEK (37) + 1 

30 INPUT M,N ： IFM<1 OR N<1 OR N<J OR M>N OR N 
>87 OR M * N<> INT (M * N) THEN PRINT CHR 
$ (7 )： VTAB (CV) ： HTAB(CH )： GOTO 30 

35 IF (9<M AND N<16) THEN RUN 

40 PRINT : PRINT TAB (5) 需要打印机输出 （ Y/N )?”；： 
GET P $ : PRINT : IF P $ < 〉 “Y” THEN 55 

50 POKE 1659 ， l:POKE 1787,2：POKE 1915,2：POKE 2043, 
40 

55 IF N<16 THEN N = 9 

60 FOR I = M TO N：I = I+(I>9 9 AND I<16) * (16-1 )： 
PRINT 1;“ 区 ：” ：C = FN A<I)：FOR J=1 TO 94 : PRINT 
CHR $ (127)+CHR $ (C)+CHR $ (FN A(J)),：K = 
PEEK (49152 )： POKE 49168, 0: IF K = 155 THEN POKE 
1659,0：END 

70 IF K>127 THEN GET K $ 

80 NEXT J ： PRINT ： PRINT：NEXT I：POKE 1659,0：GET A 
$ ：IF A$ =“R”THEN RUN 


•书讯 • 


向广大中学生推荐一套计算机教材 

《中学计算机教程》及《上机手册》 

由北京市教育局教学研究部组织编写的 《中学 计算机教程》及《上机手册; K 遵循国家教委中学计算机选修课 
教学大纳的要求，并立足于中学的教学实际 >>与同类书相比，该教材增加了计舁机应用方面的比重，注重应用能力 
的培养，并运当降低了对 BASIC 语言程序设计难度的要求。练习题附在《上机手册》内，学生使用非常方便。这套 
教材非常适合中学的计算机普及教育，也适宜用于非电子类职业高中作为计算机教材。 

《中学计算机教程》共分七 章：电 子计算机概述、简单 BASIC 程序、分支、循环、三个常用函数、數组、非數值处 
理。为使学生尽早上机实践，减少理论课的枯燥乏味，本书将第一章的某些内容 ，如： 第一台电子计尊机、人工智 
能、二进制与八卦等，作为阅读材料放在各章之后，供学生选读。 

《上机手册》主要由与上机密切关联的教学内容汇编而成。主要内容包括键盘介绍、指法训练、上机操作、 DOS 
操作系统，应用软件及习題等。 

本教材中所有例題和习題中的程序均适用于中华学习机和 Apple - I 机。 

这套教材已由人民邮电出版社出版，每套定价 3. 30元，需要者请与1990年3月底前与人民邮电出版社马月 
梅联系。地 址：北 京市糸长安街27号.，邮政编码100740。 （马月） 
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• 苹果园 地 • 


微机绘图软汉字操作系统(续) 

长沙有色金属专科学校任基重 


三、 系统组成简介 

GCDOS 系统的硬件配置为 APPLE I 主机、显示 
器、磁盘机、打印机及绘图仪（以 SPL 450 型为例），并 
配有 DOS 3. 3及 CCDOS 操作系统。 

GCDOS 包括编码、写字、代码修改和插补以及子 
字库生成等四个模块构成。 

1.编码模块其功能是生成软汉字代码，并按字 
号顺序置于字库中，包括：（】）调出 CCDOS 中汉字至屏 
幕并将屏幕 存盘； （2) 屏幕编辑、编码、代码存盘生成字 
库两道程序。前者在 CCDOS 支持下完成，后者在 
DOS 3. 3下完成。 

首先,在启动 CCDOS 以后，按 CTRL - W , 即进入选 
字状态。键入待编汉字的区位码，屏幕即显示由方块符 
组成的该汉字字形。不要做任何工作退出 CTRL - W 状 
态，将刚才的屏幕显示页存盘。注意， CTRL - W 状态的 
显示页与中文显示页不同，是用文本第一页，即应将 
$ 400〜 $7 DF 存盘才行。 

其次，退出 CCDOS , 进入 DOS 3. 3。存盘的文件调 
入内存，即可见原来显示的字形。利用箭头键移动光 
标，在直线的两端点，口形的两对角点以及折线的端点 
和折点做上适当的标志，即可让机器自动完成编码工 
作。 

当然，要让机器能识别各种点的不同含义，必须在 
标志上加以区别。我们用了全部可见符号 ( ASCII 码从 
33至127)，分别标志直线、口形和折线。同一条直线的 
两端点用相同符号标出。同一口形的两对角点也用相 
同符号标出。而折线的起点、中间折点、终点则用 ASC 
码连续的若干符号表示。图 I 即为进行过屏幕编辑以 
后的“可”字。其中 0—0 表示直线(水平线）; A - A 表示 
口形的对角点 ; F - G - H - I 表示折线(竖钩），由于原来字 
形中方块符与光标相同，当二者重叠时,看不清光标移 
动的踪迹，所以将光标移动过的方块符都改为“ * ”号。 
这样处理完成以后，就可调动机器进行编码。篇幅所 
限，程序清单略。 

从 CCDOS 中调出汉字是一种省事的方法。如果不 
想用它的字形或者用它没有的字形，完全可以在同样 
的屏幕编辑方法中完成。此时本模块中的第 （1) 道程序 
便没有必要了。在屏幕编辑前，屏幕上除了坐标数字以 
外，什么符号也没有，留待操作者自己填写。 

一批实用汉字全部编完以后即生成了一个字库， 


将其存盘待用。但要记住字在字库中的存贮顺序。 

2.写字模块其功能是启动绘图仪书写汉字。由 
一道写字子程序构成。使用时必须将其全并到主程序 
中去。 

写字子程序有三个入口，请参见图2流程，这三个. 
入口分别对应主程序中三种入口变量设置情况。入口 
变量包括 :写字 的位置(即原点的 x ， y 坐 标）； 字的宽度 
和高度;两字间的间距;字形旋转角度以及待写的汉字 
等(在特殊情况下还包括字形的错移角度等）。若待写 
的汉字以字号表示则可从入口③调用子程序，在 
DOS 3. 3状态运行。为此,必须记住每个汉字的字号， 
显得不够方便。若在 CCDOS 支持下，将待写汉字置于 
串变量 A $中，从入口②调用子程序，则査字号的工作 
可由机器完成。因为要写的每个汉字都已置于串数组 
Z $ ( N ) 中了，其下标就是字号 。 A $中可一次置60个 
汉字，根据设置的间隔依次写在同一行中。 

① 



图2写字子程序流程 


入口①的调用方法更为方便，将待写汉字孕其它 
参数全部以 “ x $ ， x ， y ， b , h , j ， S ”的形式一次置于串变量 
B $ 中，以逗号隔开，由机器进行分解。其中 x $ 为待写 
汉字， X ， y ， …， 8分别为原点坐标、字宽、字高、间隔、转 
角等参数。若这些参数略去不写(但逗号不能省），绘图 
仪将以上次的值进行 书写。 

所谓“解码”即是按编码规则将软汉字代码翻译成 
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坐标值以便进行绘图（书写）。 SPL 450 型绘图仪画直线 
的命令： 

PRINT “ PU ” X , , yi —抬笔移动至起点； 
卩則1^卞0\,7 2 —落笔移动至终点。 

该仪器还有一道画矩形的 命令： 

PRITN “ PA ” x ,, y ,— 设定一个对 角点； 

PRINT “ EA ” x 2 ， y 2 — 通过另一对角点画矩形。 
按理应该可以用定一命令书写口形线。但是由于要求 
字形能旋转至任一角度，此命令却显得无能为力。因为_ 
若旋转45•，则“口”字变成了一条斜线。所以仍用画直 
线的命令来代替它,这对操作速度无任何影响。 

对于绘图仪来说，一个汉字已经变成了一个图形， 
所以字形的放大、缩小、旋转等即接图形处理。凡是图 
形所有的变换方法都可用于汉字。笔画的粗细变化可 
借助于换笔或将原点坐标移动一小距离，重复书写的 
办法来达到。程序库中还包括两道辅助工具程序 :软字 
码的插补和修改以及由总字库生成子字库程序。前者 
功能显而易见，不赘述 。后 者是考虑到一道实用绘图程 
序实用汉字往往不会很多，没有必要将字库中的全部 
汉字调入内存。因为这样做不但多占用了存贮空间，而 
且增加了査找软汉字首址的时间。借助辅助程序可将 
一道实用绘图程序中的汉字从总字库中调出生 成一个 
子字库即解决了这一问题。 

四、应用举例 

写汉字子程序清单如附录 I 所示。图2中的入口 
①为标号 1,入口② 为标号 5,入口③ 为标号 9。 子程序 
置于主程序前面是为了提高运行速度且减少主程序输 
入 时的按键次数。但必须在前面加转移语句（如标号数 
0所示）。该程序用 BASIC 语言编写丝毫不影响写字速 
度。我们采取边解码边写字的工作方式，即解码一个坐 
标点以后，立即输送至绘图仪进行动作。由于绘图仪的 
机械动作速度远低于计算速度，所以往往出现解码全 
部完成(从屏幕显示可知已全部输至绘图仪的缓冲器 
内），而写字尚在进行的 情况。 据统计一个字的书写时 
间大约 1. 5~2 秒。为了缩短扫描字库检索软汉字首址 
的时间(这时，绘图机处等待状态），将其用机器语言编 
写(清单见附录 n ), 采取 BB = USR ( N ) 方式调用。其 
中， N 为已知的汉字字号， BB 为检索到的该汉字软字 
的存贮区首址。 

附录 I 写汉字子程序清单 

0 GOTO 500 ： REM XZ 1989. 8. 29. 

1 OO =0：LE = LEN (B$ )：FOR 0=0 TO 10: A $ (0) = “ 
，，： NEXT O：II = 0：FOR 0=1 TO LE ： AA$ =MID$ (B $ ， 


0 ， 1)IF AA$<>“ , "THEN 4 

2 II 二 II+1:IF 0—00=1 THEN A $ (1I) = “ 00=0 ： GO¬ 

TO 4 

3 A$ (II) = M1D$ (B$ ,00+1,0—00-1):00=0 

4 NEXT 0：A $ (7) = M1D $ (B$ ,00+1 ,LE-00) ： GO- 
SUB 160 

5 LE=LEN(A$ )： FOR 09 = 1 TO LE-2 STEP 4 ： AA $ = 
MID $ (A $ ,09, 4 )： FOR OO = 0 TO MZ ： IF AA $ 二 Z 
$ (OO) THEN N = 00 ： 00=MZ+1 

6 NEXT OO：GOSUB 9：NEXT 09 : RETURN 

9 MB = 40 ： NZ = — 1 ： MX - MB * BB/ 15 ： MY = MB * HH/ 
]5:S9 = SS* 3. 1416 180:SI =S1N(89) ：CO = COS (S9 )： 
B9 = BB：BB = B0 

10 BB = USR(N) 

40 AA = PEEK(BB)：IF AA = 255 THEN：BB = B9 ： ： Y = 0：X 
= BB+JJ:XX = X * CO—Y * SI + XX：YY = X * Sl + Y * 
CO+YY ： RETURN 
50 IF AA = 241 THEN 100 

60 IF AA<240 THEN X = INT(AA/16) ： Y = AA —X * 16 ： 
GOSUB 150：OE =l：GOTO 80 

70 OE = AA - 2^10 ： BB = BB-M ：AA = PEEK (BB)：X = 1NT 
(AA/16)：Y = AA-X * 16：GOSUB 150 
80 PRINT “PU”X% ， Y% : FOR O: 1 TO OE: BB = BB+1: 
AA= PEEK (BB) ： X = 1NT ( AA/16) ： Y = AA - X * 16 ： 
GOSUB 150 

90 PRINT “PU”X% ， Y%:NEXT O ： PRINT**PU M ： BB-BB + 
l：GOTO AO 

100 BB=BB+1：AA = PEEK (BB) ： X0 = 1NT( AA/.16) ： Y0 = 
AA —XO * 16 ： BB - BB + 1 ： A A - PEEK (BB) ： X1 = INT 
(AA/16):Y 】 =AA-X1 * 16 

105 X = X0 ： Y = Y0：GaSUB 150 ： PRINT “PU”X% ， Y% : 
X1% = X% ： Y1^=Y%：X = X1 ： Y-YO：GOSUB 150 ： 
PRINT Y% ; X = X1 ： Y = Y1 ：GOSUB 150 ： 

PRINT * < PD ,, X%,Y%：X = X0：Y = Y1 ： GOSUB 150 ： 
PRINT “PD”X%,Y%:PR1NT “PD”X1%,Y1% 

120 PRINT w PU M ： BB=-BB-h1 ：GOTO /10 
150 X = X * MX：Y = Y * MY:X% = X * CO—Y * SI + MB * 
XX ： Y%=X * SI + Y * CO+YY * MB：RETURN 

160 IF A$ (1)< >“ ” THEN A$ =A$ (1) 

161 IF A$ (2) < > “ ” THEN XX = VAL (A$ (2)) 

162 IF A$ (3)< >“ "THEN YY = VAL (A $ (3)) 

164 IF A$ (4)< > “” THEN BB = VAL (A$ ⑷） 

166 IFA$(5)<>“ ” THEN HH = VAL(A$ (5)) 

168 IF A$ (6)< > “ ” THEN JJ-VAL (A$ (6)) 

170 IF A$ (7)< >THEN SS= VAL A$ (7)) 

172 RETURN 
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APPLE I 键盘盲发训练程序 


四川阆中 

微机键盘输入程序或数据,需要较快的速度才能 
适应工作要求。提高键盘输入速度的方法是进行盲发 
训练。 传统的盲发训练方法和考核过程比较麻烦。通 
过微机进行自动控制的盲发训练的过程及考核办法非 
常简便易行。这里介绍一个微机盲发训练程序（见附件 
I )。程序运行 环境: APPLE - I 及其兼容机。 

程序运行后，只要键入两个参数即进入训练过程。 
一个参数是时间参数;一个参数是本次训练考核盲发 
字符数。随助屏幕上显示一个随机字符，受训者应在不 
看键盘的情况下按下键盘上相应的字符键。按键正确， 
喇叭响一声“嘟”。按下键后，喇叭不响，说明按键错误。 
错了可重按。只要在规定的时间内按下了正确的字键， 
仍认为正确■■但在规定的时间里一直未按正确，就要扣 
分。程序自动计分。训练完毕，如果总分>80分，奏一 
段乐曲，以示奖励。不奏乐曲说明成绩在 8 0分以下 。屏 
幕显示受训齐此次训练实得分数。这个程序要求受训 
者熟记键盘，训练受训者背键盘和手指头的灵巧 功夫。 


450 F $ = F $ TEXT ”: PRINT D $“ OPEN ” F $ : 
PRINT D $ “ READ”F $ : INPUT MZ ： DIM Z 
$ ( MZ ) 

460 FOR 1 = 0 TO MZ ： INPUT Z $ (1) ： NEXT ： PRINT 
D $ “ CLOSE”：RETURN 

500 HIMEM ： 32767： D $ =CHR $ (4 )：G $ = GHR # 
(7) 

503 PRINT D $ '* BLOAD CHAZT , A $ 9000"： POKE 
10,76 :POKE 11,0 ：POKE 12,9 * 6 

附录 B 检索软汉字存贮区首址子程序 


9000- 

20 

0 C E 1 

JSR 

$ E 10 C 

9003- 

A 5 

A 1 

LDA 

$ A 1 

9005- 

AA 


TAX 


9006- 

A 0 

00 

LDY 

# $00 

9008- 

A 9 

00 

LDA 

# $00 

900 A - 

85 

06 

STA 

$06 

900 C - 

A 9 

80 

LDA 

# $80 

900 E - 

85 

07 

STA 

$07 

9010- 

8 A 


TXA 



李成宇 

通过反复训练，达到按键快速、准确的目的。 

程序运行过程及操作 说明： 

运行程序前，先将子程序（见附件 n ) 在监控状态 
下键入内存，用 “ BSA VE YYCX ， A $ 302， L $26”％4# 
盘。 

运行后，要求操作者回答输入速度参数，范围从 
0. 1到10,参数越小，速度越快，反之越慢 。同时 输入一 
次训练的字符总数 (5 —500)。 

程序计算满分100分时，训练 H 个字符，每个所 
练字符应得平均分数。然后在 59 个(可改动本行程序， 
使此数加大）可见键盘字符范围内产生一个随机的 
ASCII 代码并存入变量 A 中。产生一个代码，计数变量 
E 的值加〗。判断变量 E 的值是否超过了规定字符数。 
未超过继续练，超过了转移。 

55行一60 行:控 制随机产生的 ASCII 代码值所代 
表的字符在屏幕上的显示位置按先后次序依次显示。 


9011- 

F 0 

17 

BEQ 

$902 A 

9013- 

B 1 

06 

LDA 

($06 ),Y 

9015- 

C 9 

FF 

CMP 

# $FF 

9017- 

F 0 

08 

BEQ 

$ 9021 

9019- 

E 6 

06 

INC 

$06 

901 B - 

DO 

F 6 

BNE 

$9013 

901 D - 

E 6 

07 

INC 

$07 

901 F - 

DO 

F 2 

BNE 

$9013 

9021- 

CA 


DEX 


9022- 

DO 

F 5 

BNE 

$9019 

9024- 

E 6 

06 

INC 

$06 

9026- 

DO 

02 

BNE 

$ 902 A 

9028- 

E 6 

07 

INC 

$07 

902 A - 

A 5 

06 

LDA 

$06 

902 C - 

A 8 


TAY 


902 D - 

A 5 

07 

LDA 

$07 

902 F - 

20 

F 2 E 2 

JSR 

$ E 2 F 2 

9032 - 

60 


RTS 



(全文完) 
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70 -105 行 ：在规 定的参数乘以 20 的时间内，等 
待受训者按下屏幕上所显示的字键。只要按下一键，屏 
幕上同时显示0——5计时数码。在这个时间范围内， 
机器判断屏幕显示的字键符是否与受训者所按一致， 
发岀“哪”的一声，并加分，不对即进入下一个字符的训 
练并扣分。如果规定的字符数练完，则执行新的程序 
行。 

110——120 行：计 算总分、奏乐并在屏幕显示 
“GOOD” 

125一一 150行 :显示 总分。总分280 ， 奏一段乐曲。 
前后清屏，请受训者以键盘回答是否训练的问题。不继 
续训练，结束。 

程序操作提示全用汉语拼音，训练速度快慢可自 
由控制。对辅助键盘盲发教学有一定价值。 

附件 I : 

20 HOME ： D $ = CHR $ (4)： PRINT D $ ； a BLOAD 
YYCX ” 

25 A = 0 ：C = 0： D =0： E =0 ：G = 0 ：N = 0 ：HOME 

30 INPUT “SHU RU SU LU (0. 1 —10 ):，，;M 

35 INPUT “SHU RU ZI FU SHU (5 —500 ):，，;H 

40 G =: INT ( 100/ H ) : HOME 

45 A = INT ( RND (7) * 58) + 32: E = E+l 

50 IF E>H THEN GOTO 125 

55 B =0： C = C +1 

60 IF C = 35 THEN C =5: D = D +2 

65 HTAB ( C)：VTAB ( D +4) : PRINT CHR $ ( A ) 

70 FOR 1=1 TO M * 20 
75 K = PEEK (-16384 )：POKE -16368,0 
80 IF A =K THEN GOTO 110 
85 NEXT I 

90 B = B - hl：HTAB (18 )：VTAB (2 )：PRINT B 


95 IF B <5 THEN GOTO 70 

100 HTAB (18)： VTAB (2 )：PRINT 0 

105 GOTO 45 

110 N = N + G:POKE 768,2： POKE 769, 100： CALL 
770 ：HTAB (18 )：VTAB (14) ..PRINT “ GOOD ” 
115 FOR K = 1 TO 15： NEXT : HTAB ( 18) ： VTAB 
(14 ):PRINT “” 

120 GOTO 45 

125 HTAB (5)： VTAB (18 )：PRINT “ZONG FEN = ”； 
N 

130 IF N <80 THEN GOTO 160 
135 FOR 1=1 TO 20 

140 A = INT ( RND (9) * 10)： B=INT ( RND (9) * 
250) 

145 POKE 768, A：POKE 769， B:CALL 770 
150 NEXT I 
155 HOME 

160 HTAB (5)： VTAB (20)： PRINT “NI XIANG ZAI 
LIAN XI MA ? ( Y / N) ,, ? : GET A $ 

165 REM 

170 IF A $ =“ Y”THEN GOTO 25 
J 75 IF A $ =“ N ” THEN GOTO 185 
180 GOTO 160 
185 END 


附件 i 


0302- 

AC 

01 

03 

AE 

01 

03 



0308- 

A 9 

04 

20 

A 8 

FC 

AD 

30 

CO 

0310- 

E 8 

D 0 

FD 

38 

DO 
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.书讯. 

《“微型计算机硬件、软件及其应用”学习辅导》 


本书是以《微型计尊机硬件、软件及其应用》(周明 
德编著，清华大学出版社出版）为主要教材的学.习辅导 
材料，但对于使用其它有关微机原理和应用教材的读 
者也都速用。本书针对初学者普遍会遇到的一些问题 
以及各种教材中都未讲清楚的甚至讲错误的问题作了 
详细的讲解。它象辅导教师一样，可以帮助学习微机的 
读者更快、更深入地学好这门课程。书中除重点讲解了 
各部分的难点外，还详细介绍了汇编语言程序设计方 
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法和技巧，并给出了许多具有实用价值的例题和丰富 
的习题。为方便自学者，书末还给出了全部习题解答。 

全书共分七章，分别与《微型计算机硬件、软件及 
其应用》(清华大学版）的一至七章对应，但章内各节与 
教材无关。 

该书已由人民邮电出版社出版，定价 7. 10元，（邮 
寄费10%)，书号03968,需要者请与人民邮电出版社 
发行部联系。 

(马月） 





一、引言 

我胶在用 APPLE DEBUG 调试280汇编程序时 
就会发现，它的读盘和存盘非常不便。进入 DEBUG 要 
读盘时，必须把欲读入的文件名等必要信息填入 5 CH 
开始的内存单元中，即必须填好文件控制块 FCB ; 特别 
是要将汇编程序要存盘时，则必须退出 DEBUG ， 再用 
SAVE 〈页 数〉 文件名\存盘。也就是说利用 DEBUG 的 
固有命令在不退出 DEBUG 时，不能随心所欲地把程 
序装入内存或命名存盘。本文着重介绍利用功能调用 
解决此问题。 

二、建立文件控制块 FCB 

在 DEBUG 状态下无论是把程序存盘还是装入内 
存，都要建立文件控制块 FCB q 它共有32个字节，主要 


有:第 1 一 8字节为文件名，第9 一 11字节为扩展名，第 
15字节为文件范围内所占的记录数，第16〜31字节 
为文件在盘中所分配的逻辑地址。要建立 FCB ， 先输入 
文件名。为此在内存开辟文件名字符串缓冲区，它的第 
0字节是文件名的最大长度，第1字节是实际输入文 
件名的长度（由操作系统自动填入），用10号功能调用 
输入文件名。因为 CP / M 以族为单位来编址文件区 ，一 
个族为8个逻辑扇区，共 1 K 字节，所以在填充16〜31 
字节的逻辑地址时，可填上文件所占族的编号。如某个 
文件为 4 K ， 则可占用 6 A 、6 B 、6 C 、6 D 四个族或其它四 
个连续的族号，专用的族用0填充。 

下面一段程序的工作过程是 :将输 入的文件名自 
动填入 FCB ， 然后用15号调用打开该文件，如果盘上 
已有文件返回，如果没有用22号功能调用建立该文 
件。 

LD C ，09 H 
LD DE’MSGl 
CALL 5 
LD C，OAH 
LD DE,BUFFER 
CALL 5 

LD HL,BUFFER 
LD IY,FCB 
INC HL 
INC IY 
LD B ,( HL ) 

LOOP：INC HL 
LD A ，（ HL ) 

LD ( IY)，A 
INC IY 
DJNZ LOOP 
LD C，OFH 
LD DE,FCB 
CP FFH 
JR Z，SET 
RET 

SET：LD C ，16 H 
LD DE，FCB 
CALL 5 
RET 

BUFFER ：DB 11,0,0,0,0,0,0,0,0,0,0,0,0 

FCB：DB 0,0,0,.，0( 共 33 个 0) 

MSG 1 ：DB 10,13 /FILE NAME =? 

三、将汇编程序存人磁盘 
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假定我们现在的任务是在 debug 状态下将内存 
2000 H 〜 2 EFFH 的汇编程序命名存盘。当 FCB 建立后， 
就可以利用21号顺序写功能调用。它是把磁盘缓冲区 
的内容写到 FCB 所指定的记录中去。磁盘缓冲区起始 
地址为 80 H ， 共]28个字节，所以要把从 2000 H 开始处 
的程序每128个字节为一个记录传向磁盘缓冲区。若 
文件为 4 K ， 则传向磁盘缓冲区和存盘的次数都是 
1 EH 。 待整个程序传送完后用16号调用关闭该文件。 
为避免下次读写磁盘的失误，关闭文件后清除 FCB ， 如 
有访问文件的操作可填入新的内容。程序如下： 

LD C ，9 
LD DE , MSG 2 
CALL 5 
LD HL ，2000 H 
LD B ，1 EH 
W 1; LD DE ，80 H 
LD C ，80 H 

W 2 ：LD A ，（ HL ) 

LD ( DE)，A 
INC HL 
INC DE 
DEC C 
JR NZ,WZ 
EXX 

LD C ,15 H 
LD DE,FCB 
CALL 5 
EXX 

DJNZ W , 

LD C ，10 H 
CD DE，FCB 
CALL 5 

CLEAR】:LD B ，20 H 
LD DE,FCB 
LD A ，0 

CLEAR 2 ：LD ( DE)，A 
INC DE 
DJNZ CLEAR 2 

MSG 2 ：DB 10,13 / WRITING TO FILE ! $， 

RET 

四、将程序读入内存 

把程序读入内存的过程与存盘相反，它用20号功 
能调用顺序地读出文件的记录。同样它每次从盘中把 


128个字节为一个记录读入磁盘缓冲区，再从磁盘缓 
冲区传向 2000 H 处，全部 IEH 个记录即 4 K 左右的程 
序全部读入内存后关闭文件，并清除 fcb 0 
LD C ，9 
LD DE , MSG 3 
CALL 5 
LDHL ，2000 H 
LD B ，1 EH 

R,：EXX 

LD C ,14 H 
LD DE,FCB 
CALL 5 
EXX 

LD DE ，80 H 
LD C ，80 H 

R 2 ：LD A ，（ DE ) 

LD ( HL)，A 
INC HL 
INC DE 
DEC C 
JR NZ ， R 2 
DJNZ R , 

LDC ，10 H 
LD DE,FCB 
CALL 5 
CALL CLEARL 

MSG 3 ：DB 10,13/ READING FROM FILE ! $' 

五、结束语 

上面介绍了利用操作系统的功能调用建立 FCB 
及读写磁盘的方法和主要程序，如果再加上一些其它 
语句如判别文件是否打开或建立、设置断点等语句就 
可构成一完整的程序，经汇编、链接以 RW . COM 为名 
存盘。若要调试280汇编程序，则先用 DEBUG 
RW.COM \把该程序装入 100 H 开始处 ，然后 用户就 
可在 2000 H 处编写程序。要想随时把程序存入磁盘或 
装入内存，只要输入文件名及逻辑地址，键入 G 100\ 
运行 RW . COM 程序便可，达到了在不退出 DEBUG 时 
对文件的访问。同时由于文件在存盘时使用了逻辑地 
址，使得不同内容的文件可以同名，操作系统的一些内 
部命令也对它失去功能，就是在 debug 下若不知道 
文件的逻辑地址，也无法将文件打开，这对用户程序的 
保密性也有一定的作用。该方法特别适用于那些对程 
序的存取比较频繁的场合，如将 APPLE n 做为一个 
280开发系统的用户。 
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在 APPLE 机上快速排序 


杭州大学姜仕仁 


APPLE 系例机在我国拥有相当数量，它对环境 
的适应性大，使用场合较广，与我国目前推广的中华 
学习机相兼容，对其功能的开发与扩张及使用技巧的 
探索仍不失其意义。 

对数值和字符串排序是人们让计算机常干的事。 
但用高级语言速度慢，如有几百上千个数据要用几十 
分甚至数小时，更不利于程序调试。我们可以根据变 
量的一维数组在内存中的存放规律编写一段机器语 
言作为子程序，就可大大节省时间。例如，用 BASIC 语 
言程序为1030条植物名录编索引，排序一遍要用2 
个小时，用机器语言仅需2分45 秒钟； 同样对100个 
数值排序一遍， BASIC 语言要用1分钟，机器语言只 
需1秒种左右，1000个数据排序一遍也只需59秒钟。 

数值和字符串排序的机器语言子程序分别见附 
录〗和附录2。 

数值排序子程序的用法如 下例： 

5 N =1000 
10 DIM A ( N ) 

20 FOR 1=1 TO N：READ A ( I)：NEXT 
30 CALL 38144 

40 FOR 1=1 TO N：PRINT A ( I)：NEXT 
80 DATA 1. 005,7. 814,0. 045,3,5. 015 
90 DATA . 

本子程序是从小到大排序，如要从大到小排序则 
只需在调用之前加入 POKE 38207, 16即可，还原以 
POKE 38207,48。 

如在一个程序中有多个数组，其中有一个需要排 
序的则把该数组放在 DIM 语句的最前面。 

字符串排序子程序的调用见下面一段为鸟类名 
录编索引的实际使程序，且把属名相同者以属名缩写 
的形式输出。 

5 N = 500 
8 DIM A $ ( N ) 

10 FOR 1=1 TO N：READ A $ ( I)：NEXT 

12 CALL 36864 

15 L = l：FOR 1=1 TO N 

30 IF LEFT $ ( A $ ( I )， L )= K $ THEN 55 

33 L = 0 

35 L = L-f 1 ：IF MID $ (A $ ( I ), L ，1) =<，”， THEN 
45 


40 GOTO 35 

45 K $ = LEFT $ (A $ ( I )， L ) : GOTO 90 
55 A $ ( I )= LEFT $ ( K $，1) + ” • ” + RIGHT $ (A 
$ ( I)，LEN ( A $ ( I))-LEN ( K $)) 

90 PRINT A $ ( I )： NEXT 
170 DATA DIOMEDE A NIGRIPES AUDUBON 
175 DATA PUFFINUS LEUCOMELAS ( TEMMINCK ), 
PUFFINUS TENUIROSTRIS ( TEMMINCK ) 

180 DATA . 


附录 1 •数值排序机器语言子程序 
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附录2:字符串排序机器语言子程序 
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APPLE II 向 MPF-IP 传送数据的一种简单方法 

大连海运学院赵起文大连轮船公司于清 


-、前言 

小教授微机 （ MICPOPROFHSSOR - IPLVS 简称 
MPF - IP ) 是一部功能较强的微机系统。它的 CPU 采用 
的是 ZILOG 公司的 Z 80, 所以它也属于 Z 80 系列单板 
机，但它比我们大家熟悉的 TP 801 功能要强的多。 
MPF-IP 具有一个可显示20个字的显示器和一个49 
键的完整键盘，显示器可以把 ASC B 的64个标准字 
母符号显示出来，在 8 K 监控程序的控制下，配合 
4 KRAM 可执行一些容易使用的单键命令，并能够汇 


起来很不方便。 MPF -1 P 的另一突出特点是它配置了 
一个功能很强的 EPROM 写入器，能够对多种 EPROM 
进行操作。可以想象，如果我们能实现微型机与 MPF - 
IP 的配接，利用微型机丰富的软件资源，克服 MPF-IP 
的局限性，这将是一项很有意义的工作。 

用 APPLE I 开发一个单板机应用程序，通常的办 
法是先将编制好的程序在 APPLE 1上进行汇编，然后 
将汇编后形成的机器码传送给单板机，实现这种信息 
传递，目前采用的方法有两种，一是用 APPLE I 将程 


编 Z 80 汇编语言。虽然 MPF-IP 具有以 上特点 ，但由于 序清单打印出来，再按程序清单将程序手动键入单板 
硬件和软件条件的限制，只能开发一些小型 Z 80 应用 机中，这实际上是一个重复劳动过程，而且很容易出 
程序,对于大中型程序实现起来就很困难，而且调试 错。另一个方法是通过接口将程序的机器码直接传送 
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给单板机。实现 APPLE 1向单板机传送数据的方法很 
多，许多文献均有介绍。本文所述的这种方法，是在充 
分利用 APPLE n 机的硬件和软件资源的基础上，不动 
APPLE I 任何硬件，只需将打印机电缆连到单板机，用 
CP / M 操作系统的 TYPE 命令把机器码文件传送给单 
板机、在单板机上只需执行一个简单的接收程序。实现 
起来非常方便。 

本文是利用 MPF - IP 机来实现上述方法的。但设 
计方法适用于任何其它单板机，只是要根据各自单板 
机的特点，在接收程序上稍加改动就可实现。 

二、基本原理 

APPLE II 在 CP / M 操作系统支持下，能够实现对 
Z 80 和8080两种语言进行汇编。汇编结束后都能够形 
成一个扩展名为. HEX 文件，这个文件就是程序的机 
器码文件，它的文件格式 如下： 

A)TYPE B : APL - MPF . HEX 

: 1 CB 900002100 C 03 EBAED 473 E 0 AD 36 A 3 E 7 FD 36 A 3 E 8 

7 D 36 ADB 683 E 003200 F 8 ED 5 EA 7 

：04 B 91 C 00 FB 7618 FCA 2 

：1 CB 92000 DB 68083 A 00 F 8 FE 01281208 FE 3 AC 2 B 5 B 93 

E 013200 F 80 E 000602 C 3 B 5 B 935 

：1 CB 93 C 0008 FE 4 0 F 247 B 9 D 630 C 34 FB 9 D 641 E 526 BA 6 

F 7 EE 1052027 B 206020 C 0879 A 9 

:1 CB 95800 FE 012828 FE 02283 BFE 032839 FE 0428370 

877231 D 204700 CDB 9093 E 006 B 

:1 CB 974003200 F 8183 CCB 27 CB 27 CB 27 CB 27571831085 

FB 7202 C 21 C 6 B 9 CDB 7 B 9 CDBD 

：1 CB 990004 602 FE 0 D 20 F 32100 C 018 D 31818181608 B 7 

281221 D 1 B 9 CDB 7 B 9 CD 460215 

：1 CB 9 AC 00 FE 0 D 20 F 32100 C 018 B 9 ED /1 D 00 CDB 909 CD 

CA 09 CD 9903 DD 212 CFFC 92020 AB 

：15 B 9 C 80020202020474 F 4 FC 40 D 20202020202045 

52524 FD 20 D 5 D 

: 06 BA 00000 A 0 B 0 C 0 D 0 E 0 FF 5 

：02 BA 0 A 0020 B 961 

： 0000000000 

从这个数据格式可以看出，第一位（：）为引导位，第二 
位（如 1. C ) 为数据块长度，第三、四位（如 B 900 H ) 为数 
据块起始地址。第五位 (00) 为起始位，从第六位开始为 
数据块，每一数据最后一位为校验码。这样我们将 AP - 
PEL II 打印机接口连到 MPF - IP 的 PIO 上 ， APPLE I 发 
送数据如同对打印机送数一样，而 MPF - IP 按照上面 
的数 据格式模拟打印机进行数据接收。 

在接口制作上，用36针插座一个(与打印机的一 
样）， 74 LS 04 —块，按照 Centronix 标准将 PIOA 口连到 
36针插座上。 


APPLE I 与 MPF-IP 的硬件连接如图所示。 


PIOAP 



36芯插座 


三、操作方法 

将接收程序固化在 EPROM 中，当需要将 APPLE 
目标码传送给 MPF - IP 时，首先启动 MPF - IP 机的接 
收程序，然后在 APPLE H 上打入下列 命令： 

TYPE 文件名 .HEX Y 

如果传送成功，则在 MPF - IP 的显示器上显示 
“ good ”， 否则显示 “ ERROR ”。 

四、程序(机器码） 


B 900- 

21 

00 

CO 

3 E 

BA 

ED 

47 

3 E 

B 908- 

0 A 

D 3 

6 A 

3 E 

7 F 

D 3 

6 A 

3 E 

B 910- 

87 

D 3 

6 A 

DB 

68 

3 E 

00 

32 

B 918- 

00 

F 8 

ED 

5 E 

FB 

76 

18 

FC 

B 920- 

DB 

68 

08 

3 A 

00 

F 8 

FE 

01 

B 928- 

28 

12 

08 

FE 

3 A 

C 2 

B 5 

B 9 

B 930- 

3 E 

01 

32 

00 

F 8 

0 E 

00 

06 

B 938- 

02 

C 3 

B 5 

B 9 

08 

FE 

40 

F 2 

B 940- 

47 

B 9 

D 6 

30 

C 3- 

4 F 

B 9 

D 6 

B 948- 

41 

E 5 

26 

BA 

6 F 

7 E 

El 

05 

B 950- 

20 

27 

B 2 

06 

02 

OC 

08 

79 

B 958- 

FE 

01 

28 

28 

FE 

02 

28 

3 B 

B 960- 

FE 

03 

28 

39 

FE 

04 

28 

37 

B 968- 

08 

77 

23 

ID 

20 

47 

00 

CD 

B 970- 

B 9 

09 

3 E 

00 

32 

00 

F 8 

18 

B 978 

3 C 

CB 

27 

CB 

27 

CB 

27. 

CB 

B 980- 

27 

57 

18 

31 

08 

5 F 

B 7 

20 

B 988- 

2 C 

21 

C 6 

B 9 

CD 

B 7 

B 9 

CD 

B 990 

46 

02 

FE 

0 D 

20 

F 3 

21 

00 

B 998- 

C 0 

18 

D 3 

18 

18 

18 

16 

08 

B 9 A 0- 

B 7 

28 

12 

21 

D 1 

B 9 

CD 

B 7 

B 9 A 8- 

B 9 

CD 

46 

02 

FE 

0 D 

20 

F 3 

B 9 B 0 

21 

00 

CO 

18 

B 9 

ED 

4 D 

00 

B 9 B 8 

CD 

B 9 

09 

CD 

CA 

09 

CD 

99 

B 9 C 0- 

03 

DD 

21 

2 C 

FF 

C 9 

20 

20 

B 9 C 8- 

20 

20 

20 

20 

47 

4 F 

4 F 

44 

B 9 D 0- 

0 D 

20 

20 

20 

20 

20 

20 

45 

B 9 D 8- 

52 

52 

4 F 

52 

0 D 

00 

00 

00 

BA 00- 

0 A 

0 B 

OC 

0 D 

0 E 

OF 

00 

00 

BA 08- 

00 

00 

20 

B 9 
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• 苹果园 地 • 


多功能的 APPLE I HELLO 程序 

同济大学邹培国 


我们知道，计算机经常需要对磁盘文件进行操 
作。由于用户存取的文件名各不相同，有时为保护文 
件，还对文件名进行保密，因此给文件管理带来不便。 
在 APPLE n 中，我们常用一个 HELLO 程序来管理文 
件，它具有对文件目录进行编号、操作 （ CATALOG ， 
LOAD , BLOAD , RUN , BRUN , LOCK , UNLOCK , 
DELETE ) 等功能。但这个程序仍有许多不足之处，如 
不能对加控制字符的文件名进行操作，不能恢复被删 
除的文件名等。我们在原版本的 HELLO 程序基础上 
进行了重要改进，增加了许多重要功能，使之成为一 
个多功能的实用载入程序。这一种程序的功能简述如 
下： 

(1) CATALOG 命 令:原 CATALOG 命令需列完所 
有文件名才能退岀，这是很不方便的。我们对此作了 
改进，只要按回车键， CATALOG 命令就 退出； 否则，按 
其它任一键，继续列目录。目录仍按英文字母顺序编' 
号。 

(2) 文件操作命令 共有： （ B)LOAD ， (B)RUN, 
LOCK, UNLOCK, DETELE, RELETE, RENAME, VERI- 
FY ， EXEC 。 其中 RELETE 命 令是新增加的 ，用于恢复 
刚被删除的文件。 

(3) 本程序能对加控制字符的文件名进行操作， 
并闪烁显示控制字符，使控制字符失去加密意义。 

(4) 在屏幕右上角显示磁盘扇区使用情况。 

(5) 能打印 BLOAD 文件的首地址和长度。 

(6) 按字符！或#能改变当前的驱动器号，从而能 
对两个驱动器进行文件操作管理。 

程序第 110— 120句改动 CATALOG 命令； 第 
130-140 句置入打印 B 型文件的首地址和长度的机 
器子 程序; 第150句置入打印扇区使用情况的机器子 
程序；第160句置入闪烁显示控制字符的机器子程 
序； 第180，190句的 POKE 语句设置驱动 器号 ; 第210 
句使 CATALOG 将删除的文件名一同列出（在文件名 
最后有一反显示字符）；第320句清除该 功能； 第 
76 0— 78 0句设置 RELETE 命令，第 790—820 句消除 
该命令(以便使 DOS 正常工 作）； 第690句和第580句 
是锁定屏幕第1，2行和第24行。由于改动了 DOS ， 因 
此本程序 应按菜 单中的 EXIT 项退出，以便恢复，否则 
会产生意外结果。本程序已对此作了考虑，第100句 
使出错和按 CTRL-C 键时能继续 执行； 用 POKE 214, 


255使 RESET 键失效而重新执行本程序， POKE 214,0 
恢复 RESET 键的功能。其它程序基本上和原程序相 
同，这里不再说明。程序清单 如下： 

100 ONERR GOTO 830 

110 POKE 44601, 76： POKE 44602, 237： POKE 
44603,188 

120 RESTORE ； FOR 1 = 48365 TO 48377： READ P ： 
POKE I ， P:NEXT I 

130 POKE 42104,179 ：POKE 42105,182 
140 FOR 1 = 46771 TO 46845： READ P：POKE I , P ： 
NEXT I 

150 FOR 1 = 896 TO 960 ：READ P：POKE 1， P:NEXT I 
160 FOR 1 = 768 TO 795 : READ P ： POKE I ， P : NEXT 
I 

170 SPEED =255： X 0=44349： D = PEEK (43624) 

180 TEXT ： HOME：POKE 43624, D：POKE 47082 ,D 
190 POKE 898, D：POKE 912, D：GOSUB 640 
200 C $ = “ CATALOGED $ = CHR $ ⑷ 

210 POKE 44505,234 ：POKE 44506,234 ：POKE 2 H , 
255 

220 HOME：GOSUB 730 

230 PRINT D $ ； C $ : PRINT D $ ，“ PR #0” 

240 T =0 ：CH = 4 ：FOR CV =2 TO 23 ：GOSUB 600 
250 IF CO 160 THEN POKE P -1,219 ：POKE P，T + 
193 ：POKE P +1，221: T = T +1: S=CV 
260 NEXT CV 
270 VTAB 24 

280 B $ = “ RUN ”： HTAB 1： PRINT LEFT $ (A $ , 
39) j ： A $ = MID $ ( A $ ,2)4- LEFT $ ( A $ ,1) 
290 K = PEEK ( —16384) ：IF K 〈128 THEN FOR K =1 
TO 75 ：NEXT K ： K = FRE (0) ：GOTO 280 
300 POKE —16368,0 :IF K =161 THEN PRINT ：D 
= l：GOTO 180 

310 IF K =163 THEN PRINT ： D = 2 ：GOTO 180 
320 POKE 44505,48 ：POKE 44506,74 ：POKE 214,0 
330 K = K —176 ：IF K 〈1 OR K 〉10 THEN 460 
340 HTAB 1 : CALL -868 ：IF K =9 THEN TEXT：END 
350 PRINT “ PRESS ‘ LETTER，YOU WISH TO ”； 

360 IF K =1 THEN B $ =“ LOAD ” 

370 IF K =2 THEN B $ =“ LOCK ” 
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380 IF K = 3 THEN B $ = “UNLOCK” 

390 IF K = 4 THEN B$ = “DELETE”:FLASH 
400 IF K=5 THEN B $ =“RELETE” 

410 IF K = 6 THEN B $ = “RENAME” 

420 IF K=7 THEN B$ = “VERIFY” 

430 IF K = 8 THEN B$ = “EXEC” 

440 PRINT B$ ； : CALL-198：NORMAL : GET K$ 

450 K=ASC(K$ ) —48 

% 

460 IF K<17 OR K>T+16 THEN 270 
470 CH=l:CV=S-T+K-16:GOSUB 600 
480 IF C= 194 AND (B $ = “RUN”OR B $ = 
“L()AD，，)THEN B$ =“B”+B$ 

, 490 IF B $ =“RUN，，OR B $ =“BRUN，，OR B $ = 
“LOAQ” THEN TEXT 

500 FOR CH = 6 TO 39：GOSUB 600： B $ =B $ + 
CHR$ (C)：NEXT CH 

510 B$=B$+“ ”: CALL—868:HTAB 1:INVERSE 
520 GOSUB 730：PRINT LEFT$ (B$，39) 

530 IF LEFT $ (B$ ， 6) = “RELETE” THEN GOSUB 
750 

540 IF LEFT $ (B$ ,6) = “RENAME，，THEN INPUT 

“- ^，，:K$ ：B$ =B$ +“• ” +K$ 

550 NORMAL： PRINT D$ ; “PR # 0”: PRINT D$ ;B 

$ 

560 IF LEFT $ (B $ ， 4) = “EXEC” THEN TEXT：END 
570 IF LEFT $ (B $ ， 6) = “RELETE” THEN GOSUB 
790 

580 IF LEFT $ (B$ ,5) = “BLOAD” THEN POKE 35, 
23 

590 GOTO 200 

600 REM GET ASCII CODES ON SCREEN 
610 Cl =INT(CV/8):C2 = CV-C1 * 8：P= 1024 + 
128 *C2 +40 *C1+CH 

620 C=PEEK (P)：IF C>64 AND C〈128 THEN C = C 
-64 

630 RETURN 

640 REM SHOW SECTORS USED &.FREE 
650 AE = 149 — (157 - PEEK(978)) ：POKE 905, AE： 
POKE 938,AE 
660 CALL 919： REM $397 

670 R = PEEK (917)+256 * PEEK(918) ：U = 560- 
R 

680 VTAB 1 : PRINT “SECTORS USED ： M ；U： PRINT 
“SECTORS FREE： W ；R 


690 POKE 34,2 

700 A $ =“TYPE LETTER TO RUN,OR LOAD = 1 
LOCK = 2 UNLOCK = 3 DELETE = 4 RELETE =5 
RENAME =6 VERIFY = 7 EXEC = 8 EXIT = 9 ! 

=DRIVE 1 # = DRIVE 2_ 

710 D $ = CHR $ (4) 

720 RETURN 

730 REM SHOW CTRL-WORD 
740 POKE 54,0 ：POKE 55,3 ：CALL 1002 ：RETURN 
750 REM SET RELETE STATUS 
760 POKE X 0, 230： POKE XO-f 9,160： POKE X 0 + 
11,230 ：POKE X 0+ 1206, 16 :POKE XO +1222, 
29 ：POKE X 0-406,230 ：POKE XO -1189,82 
770 POKE XO +6,198 ；POKE X 0+]464,89 
780 RETURN 

790 REM SET DELETE STATUS 
800 POKE X 0 ， 198: POKE X 0 + 9 ， 255: POKE X 0 + 
11,198 :POKE X 0+1206,48 :POKE XO +1222, 
30 ：POKE X 0-406,198 ：POKE X 0-11 89, 68 
810 POKE X 0+6,230 :POKE X 0+1464,25 
820 RETURN 

830 PRINT CHR $ (7)； CHR $ (7 ):GOSUB 790 GO ¬ 
TO 200 

840 DATA 32,12,253,201,141,208,3,76,44,174, 
76,60,174 

850 DATA 173,95, 170, 20】，50, 208, 29, 32, 142, 
253,32,243, 182,32,218, 182, 173, 115, 170, 
174,114,170,32,65,249,32,72,249,169,204, 
32,220，182,32,234，182,76,10，164，169，193, 
32,237,253, 169, 189,32, 237, 253, 169, 164, 
32,237,253,96,173,97,170,174,96,170,32, 
65 

860 DATA 249, 162, 11, 169,42,32,240,253,202, 

208.250.96 

870 DATA 1,96，1，0,17,0，145,3,0，149,0,0，1，0, 
0,96，1，0，1，239,216,0,0, 169,3,160,128,32, 
217,3,162,0,】42,149,3, 142,150,3, 160, 56, 
185,0,149, 162,8, 10,144,8,238,149,3,208, 
3,238,150,3,202,208,242,200,192,196,144, 

232.96 

880 DATA 201,141,240,21,201,136,240,17,201, 
128, 144, 13,201,160, 176,9,72, 132, 53, 56, 
233,64,76,249,253,76,240,253 


23 





1 




内_||!識 誌 I 施 


甘肃省地矿局尚银生 I 
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一 、存在的问题 

苹果机在图形或硬汉字中文状态下，因图形或汉 
字显示占了高分辨的第二页，把从$ 0800- $ 9000( 指 
中文状态）的内存区隔成了 $ 0800- $ 3 FFF 和$ 6000- 
$9000两个不连续的区域，这对运行较大程序带来了 
不便。用户在使用高地址区的 12 K 时，为了避免程序 
的数据区和屏幕显示区发生重迭破坏了显示区的信息 
而出现的屏幕紊乱现象,通常用 “ LOMEM ” 语句规定数 
据区首地址，但因程序信息在内存的确切长度预先不 
便测定，造成在一程序末尾和 “$3 FFF ” 之间的一段空 
间被浪费而不能利用。 

下面论述一下在不占用可用内存的情况下，在浮 
点 BASIC 运行中，解译器通过调用一个用6502机器 
语言编写的“内存连接子程序”，自动完成内存区 
“ $ 0800- $ 3?吓”与$ 6000- $ 9000”的连续。在不履盖 
显示区的情况下，可解决程序的简单变量和数组区从 
$3 FFF 自动向$6000以后延伸，一方面提高了内存 
的有效利用率，乂避免了屏幕上出现紊乱现象的问题。 
二、解决方法 

为了使“连接子程序”不占用过多的内存（不超过 
DOS 的一个文件缓冲区的长度），这里给出的连接子 
程序只解决数组区的连接问题。对简单变 fi 区的连接 
处理和下面叙述的解决数组区的方法一样，不过程序 
要简单的多。 

1、解译器定义数组、访问数组的入口地址 

$ DFD 9 是解译器定义数组的入口地址， $ DFE 3 
是访问各类变童的入口地址。 

$ DFD 9- $ E 1 C 4 的子程序，解译器完成了数组下 
标值的浮点数转换、维数测定，数组表头起始地址及数 


改为 “ JMP $985 F ”，$ E 21 A 处的 “JSR $ D 3 E 3” 调用指 
令改为 “ JMP $ 9893”$ E 1 B 5 处的 “ JMP 麥 E 24 B ” 转移 
指令改为 “ JMP $98 E 6”$ E 0 B 6 处的 “JSR $ D 393” 调 
用指令改为 “JSR $9924”。通过对解译器上述地址的 
修改，可实现 BASIC 程序运行中，解译器对“连接子程 
序”的调用。 

.(1)basic 程序运行中定义数组时.解译器从 
$E1C4 处转移到子程序的 $985F 去执行.判断当前 
数组表头指针 （ $9B, $9C) 的值是否大于 $3FFF ， 若 
不大于则直接转到解译器的 $ E 1 C 7 去执行，否则把 
( $ 9B, $ 90 指针的值加上偏移散$ 2000” 使它指 
向“ $ 6000” 作为数组表头的起始地址。同时，若该数组 
不是被定义的第一个数组则把定义过的前一个数组表 
头的长度信息进行修改，使其在访问数组时能指向下 
一个数组的首 地址。 

(2) 当解译器作完数组元素区长度测试，执行到 
$E21A 处就转到子程序的 $9893 去执行，判断数组 
尾地址指针 （ $6D, $6E) 的值是否大于 $3FFF, 若不 
大于则转到解译器的 $E221 处去填充表头信息和元 
素区信息后返回。否则要测定当前数组元素区首地址 
指针 （ $94, $95) 的值是否超过 $3FFF, 若超过说明 
当前数组是定义在 $6000 以后的内存中，对这种情况 
也转到解译器的 $E221 处去处理。若是数组表头在显 
示区以下的区域里，而元素区尾地址又大于$ 3FFF 的 
情形，则要根据元素区首地址指针（ $94, $95) 的值加 
上每一个字节后，判断是否大于 $3FFF 的情况来处 
理。当测试到加上某一个元素占的字节超过了 $3FFF 
地址，则要把当前（ $94, $95) 的值加上偏移 

$ 2000”后再定义该元素在内存的真实地址。通过这种 
处理则跨过了高分辨第二页显示区，把两部分空间连 
接起来统一分配。 

(3) 当解译器在访问数组变 M 执行到 $ E 1 B 5 处， 


组元素区起始地址的确定，从 $ E 21 a $ E 2 AC ， 解译 
器处理完数组元素区和表头信息的填充工作。 

$ DFE 3-$ E 1 B 5 的子程序解译器用来完成当前 
被访问数组表头的查找工作。 $ E 24 B -$ E 2 DD 的程 
序、解译器来确定一个数组变量在本数组中的起始地 
址。 

2. 解译器对连接子种序的调用 

把解译器中 $ E 1 C 4 处的 “ JSR $ D 3 E 3” 调用指令 


则转到子程序的$ 98 E 6 去执行，由该子程序换 T ): 出当 
前被访问数组元素在内存的真实地址。存放在$83、 
$84单元中返回。 

(4) BASIC 程序在执行过程中，每当定义一个新的 
简单变量时,解译器就要在已定义的简单变董后（如 
有)和数组区首地址之间，重新分配7个字节，作为当 
前被定义简单变 M 的存 放区。 此时 （$6 B , $60 — 
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($6D, $ 6E) 之间的数组区要向高地址区扩充 7 个字 
节，原解译系统是在 $E0B6 处调用$ D393 子程序来 
完成数组区的移动。这时由于整个数组区在内存是占 
着两部分空间，在物理地址上是不连续的，因此解译器 
在作数组区向后移动时，从 $E0B6 处调用 $9924 子 
程序来完成数组区在内存的移动工作。连接子程序移 
动数组的工作是分三步来完成的，先将$ 6000- 
( $6D, $6E) 之间的数组空间向后移动七个字节，再 
将 $3FFF 前七个字节移到 $6000-$ 6 00 6 七个单元 
中，最后再转到$ D39A 去由解译器完成（$68, 
$60- $3FF8 之间的数组移动。 （如 当前 （ .$6D, 
$ 6E) 的值加上 7 个字节后不大于$ 3FFF, 则判断后 
直接转到 $D39A 去执行） 

3、 连接子程序功能描述 

该子程序放在 DOS 的读写文件第二缓冲区的 
$ 985 F - $ 99 AC 中, BASIC 程序运行中不需要用 CALL 
语句来调用。它作为解译系统的子程序，通过地址 
$ 985 F 、 $ 9893、 $98 E 6、 $9924对它调用。可实现对 
数组区从$ 3 FFF 到$ 6000的跨页连接定义和跨页连 
接访问的功能。即在第2页之前有变量和数组的存放 
区。如在 $3 FFF 之前不够用，该连接子程序能自动将 
数组区扩充到第2页之后，用户不需要考虑当前空间 
大小，也不需要修改数组变童存放的指针。例如当前数 
组在内存的起始地址为 “$3 A 00” 数组长度为“ # 
$ 1 F 30”, 若不进行跨页连接处理，该数组尾地址应在 
$ 593 C , 和高分辨第二页显示区相重迭，此时屏幕上 
要出现紊乱现象，汉字或图形均不能清晰显示。但通过 
连接子程序对数组区的跨页连接处理，数组尾地址被 
移到了 $ 793 C 的位址，中间跨过了 “ $ 4 000- $ 5 FFF " 
的显示区。并使内存得到了充分利用。 

4、 解译器调用地址的修改方法 

为了能使解译器调用内存连接子程序，实现其对 
调用地址和指令的修改，需要把解译器放在 16 K 语言 
卡上运行。其方法 如下： - 

先进入监控 

* $ 6000< $ D 000 • $ DFFFM \ 

* $ C 08 U , * $ C 08 U 写语言卡 

* $ D 000< $ 6000 . $ 8 FFF M \ 

* $ E 1 C 4：4 C 5 F 98 

* $ E 21 A ：4 C 93 98 \ 

* $ E 1 B 5：4 C E 6 98 \ 

* $ E 0 B 6：20 24 99 \ 

* $ C 080 ^读语言卡 

用 CTRL-C \ 退出，不要用 CTRL-RESETE ， 这些步 
骤可以放在格式化的“欢迎”程序中在开机时自动完 


成。 

5 、子程序 
985F-A5 


9860-9C 

C9 

60 

10 

15 

A5 

94 

A4 

9868-95 

20 

83 

99 

90 

OC 

20 

95 

9870-99 

A5 

9C 

69 

20 

85 

9C 

20 

9878-ED 

E0 

20 

E3 

D3 

20 

83 

98 

9880-4C 

8A 

99 

A2 

05 

A5 

81 

10 

9888-01 

CA 

A5 

82 

10 

02 

CA 

CA 

9890-86 

4C 

60 

20 

E3 

D3 

85 

6D* 

9898-84 

6E 

20 

83 

99 

90 

06 

EA 

98A0-20 

7C 

99 

90 

03 

4C 

21 

E2 

98A8-84 

95 

A2 

00 

8A 

A8 

91 

94 

98B0-E6 

94 

D0 

02 

E6 

95 

A4 

95 

98B8-20 

81 

99 

90 

ED 

20 

D8 

98 

98C0-8A 

A8 

91 

94 

E6 

94. 

DO 

02 

98C8-E6 

95 

38 

A5 

6D 

E5 

94 

A5 

98D0-6E 

E5 

95 

10 

EB 

4C 

36 

E2 

98D8-18 

A5 

95 

69 

20 

85 

95 

A5 

98E0-6E 

69 

20 

85 

6E 

60 

20 

83 

98E8-98 

B1 

9B 

85 

OF 

A9 

00 

85 

98F0-AD 

85 

AE 

C8 

68 

AA 

85 

A0 

98F8-68 

85 

A1 

20 

5D 

E2 

CO 

60 

9900-10 

21 

20 

83 

99 

80 

12 

A5 

9908-83 

65 

4C 

90 

01 

C8 

84 

84 

9910-A5 

83 

20 

83 

99 

90 

0A 

B0 

9918-08 

18 

A5 

84 

69 

20 

85 

84 

9920-A8 

A5 

83 

60 

20 

E3 

D3 

85 

9928-6D 

84 

6E 

A5 

6B 

A4 

6C 

20 

9930-83 

99 

B0 

09 

A5 

6E 

C9 

60 

9938-90 

03 

4C 

41 

99 

4C 

9A 

D3 

9940-60 

A0 

00 

B1 

96 

91 

94 

C6 

9948-94 

A5 

94 

C9 

FF 

DO 

02 

C6 

9950-95 

C6 

96 

A5 

96 

C9 

FF 

DO 

9958-02 

C6 

97 

A5 

95 

C9 

60 

DO 

9960-E2 

A5 

94 

C9 

07 

B0 

DC 

A9 

9968-3F 

85 

97 

B1 

96 

91 

94 

C6 

9970-96 

C6 

94 

10 

F6 

A9 

3F 

85 

9978-95 

4C 

9A 

D3 

A5 

95 

E5 

AE 

9980-A8 

A5 

94 

38 

E9 

00 

98 

E9 

9988-40 

60 

A5 

9B 

85 

08 

A5 

9C 

9990-85 

09 

4C 

C7 

El 

18 

A0 

02 

9998-A9 

01 

E5 

9B 

71 

08 

91 

08 

99A0-C8 

A9 

20 

71 

08 

91 

08 

A9 

99A8-00 

85 

9B 

38 

60 
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• 苹果园 地 • 

高分辨率图形的存盘方法 

天津教育学院张森 


本文末所附参考文献〔1〕中对一幅高分辨率图形 
采取将其对应的 8 KB 缓冲区的内容全部存入盘中的 
存盘方法。这样每幅图在盘中要占据34个扇区，一张 
盘至多也仅能存放14幅图。如果采用本文提供的压 
缩存盘方法，那么就可使一张盘的存图幅数成倍增 
加。其原理 是:一 幅图对应的缓冲区的各个单元的内 
容不是互不相同的。我们将缓冲区看作192行40列 
单元组成的区域。对一幅存于此区域的图形先按行后 
按列顺序扫描每一个单元。将连续相同内容的单元个 
数和重复内容存起来，并在它们的前面加上重复标志 
0。那么就可将多于3个有连续相同内容的一片单元 
压缩为3个单元(如果多于256个相同内容的单元就 
分成多次压缩）。对于少于4个连续相同内容的一片 
单元就将其内容一个一个地存起来。而不作上面的压 
缩，否则不但没压缩反而增加了存贮单元。当要再现 
图形时，先将其压缩后的图形数据调入内存，然后按 
行列将数据逐个填回缓冲区一即还原。图形将在屏 
幕上从左向右逐列显示出来。就如同展开一幅画卷那 
样自然，悦目。其显示速度也比〔1〕文中的显示速度快 
得多1机器语言子程序 Y - - H 就是完成以上的压缩 
—还原工作的。 

1A00 〜 1A4C 还原子程序 

1A4D 〜 1A6E 计算缓冲区单元地址子程序 

1A6F 〜 1ADE 压缩子程序。 

由于0已作为重复标志。压缩子程序会自动将缓 
冲区中的$00转换为 $80( 即换成第2种黑色）。在 
BASIC 程序中调用压缩或还原子程序应分别用 CALL 
6767或 CALL 6656, 而且在调用前都应先将压缩后图 
形数据的存放区的起始单元地址按低、高位存放到 
$00、$01单元中。压缩完成后，$00、$01的内容就 
是存放区的最终单元地址。如果在 BASIC 程序中用软 
开关设置显示状态，那么在调用压缩或还原子程序前 
还应将缓冲区起始单元地址的高位存放到 $ E 6 单元 
中。即第1页用 POKE 230,32。第2页用 POKE 230, 
64。 

为使〔1〕文中的程序适合前述压缩存盘方法，需 
作如下增加与修改。（我们规定图形压缩后的数据存 
放区的起始单元地址为$ 6000) 。 

1 HOME：? CHR$ (4);“BLOAD Y-H ， A$ 1A00” 

25 INPUT “HCOLOR = ” ； C 


35 ?•? CHR $ (4) ; “ BLOAD ”; N $ ;，，， A $6000” 

36 POKE 0,0 :POKE 1,96 ：CALL 6656 
60 HGR 2 ：C = 7 

100 IF A $ =“ W ” THEN POKE 0,0： POKE 1,96： 
CALL 6767 ：L = PEEK (0)-|- PEEK (1 ) * 256- 
24576： GOTO 300 

300 ?：? CHR$ (4);“BSAVE”,M$ ;” ， A$ 6000 ， L ”； 

I,:GOTO 70 

400 PR # 1：? u LENTH = ,, , L：POKF 1913,2：? CHR 
$ (17)： GOTO 70 

再有程序中的 HCOLOR = 7 全部改为 HCOLOR - 
C „ 经修改后的程序增加了绘制彩色图形的功能此程 
序可用兰色 ( C =6) 画出非洲地图，其海洋、河流、湖泊 
皆为兰色，然后改用白色 ( C =7) 加上白色的图框。下 
面压缩 —— 还原子程序 Y - H 的清单。 


压缩一还原子程序 Y-H 


1 A 00- 

A 5 

E 6 

85 

06 

A 2 

00 

A 0 

00 

1 A 08- 

84 

02 

84 

05 

84 

08 

B 1 

00 

1 A 10- 

D 0 

18 

E 6 

00 

DO 

02 

E 6 

01 

1 A 18- 

B 1 

00 

85 

08 

E 6 

00 

DO 

02 

1 A 20- 

E 6 

01 

BJ 

00 

85 

07 

A 5 

07 

1 A 28- 

C 6 

08 

A 4 

02 

91 

05 

E 8 

E 0 

1 A 30- 

C 0 

90 

0 A 

E 6 

02 

M 

02 

CO 

1 A 38- 

28 

B 0 

11 

A 2 

00 

20 

4 D 

1 A 

1 A 40- 

A 4 

08 

DO 

E 2 

E 6 

00 

DO 

C 6 

1 A 48- 

E 6 

01 

DO 

C 2 

60 

8 A 

29 

CO 

1 A 50- 

85 

05 

4 A 

4 A 

05 

05 

85 

05 

1 A 58- 

8 A 

85 

06 

0 A 

0 A 

0 A 

26 

06 

1 A 60- 

0 A 

26 

06 

0 A 

66 

05 

A 5 

06 

1 A 68- 

29 

IF 

05 

E 6 

85 

06 

60 

A 0 

1 A 70- 

00 

84 

03 

84 

02 

A 5 

E 6 

85 

1 A 78- 

06 

84 

05 

B 1 

05 

DO 

02 

09 

1 A 80- 

80 

A 2 

01 

86 

08 

85 

07 

A 4 

1 A 88- 

02 

A 6 

03 

E 8 

E 0. 

CO 

90 

09 

1 A 90- 

C 8 

84 

02 

CO 

28 

B 0 

17 

A 2 

1 A 98- 

00 

86 

03 

20 

4 D 

1 A 

B 1 

05 

1 AA 0- 

DO 

02 

09 

80 

C 5 

07 

DO 

06 

1 AA 8- 

E 6 

08 

DO 

DB 

C 6 

08 

48 

A 0 

1 AB 0- 

00 

A 6 

08 

E 0 


B 0 

0 A 

A 5 
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1AB8 - 07 20 D6 1A CA DO FA FO 

1AC0- OD 98 20 D6 1A 8A 20 D6 

1AC8- 1A A5 07 20 D6 1A 68 A4 

1AD0- 02 CO 28 DO AC 60 91 00 

1AD8 - E6 00 DO 02 E6 01 60 

修改后的程序 

1 HOME： PRINT CHR $ (4), “BLOAD Y-H，A 
$ 1A00” 

12 INPUT “BLOAD FILE： a ,N$ 

14 INPUT “BSAVE FILE :”; M $ 

20 INPUT “SORGN(X,Y)?”;X,Y 
25 INPUT “HCOLOR =”;C 
30 HGR2 

35 PRINT : PRINT CHR $ (4)；“BLOAD”；N $ ;“ ， A 
$ 6000” 

36 POKE 0,0:POKE 1,96：CALL 6656 
40 GOTO 65 

50 INPUT “BSAVE FILE; M $ 

52 INPUT“SORGN (X ， Y) ? ” ; X ， Y 
60 HGR2 : C=7 

65 HCOLOR =C：HPLOTX,Y：B$ =“0”:X0 = X:Y0 
=Y 

70 GET A$ 

75 IF ASC (A$ ) = 27 THEN 250 
80 ON (A $〉=“I”）* (ASC (A $ ) — 72) GOTO 
120,140,70,160,180 
90 IF A$ =“P”THEN 400 
95 IF A $ =“E”THEN TEXT : END 
100 IF A $ = “W” THEN POKE 0,0： POKE 1,96： 
CALL 6767：L = PEEK (0)+PEEK (1) * 256- 
24576：GOTO 300 
110 GOTO 70 

120 Y = Y-l + (Y<l):GOTO 200 
140 X=X-l + (X〈l):GOTO 200 
160 X=X-hl-(X)278)：GOTO 200 
180 Y=Y+1-(Y>190) 

200 HCOLOR =C：HPLOT X,Y 
210 IF ASC< B $ ) = 27 THEN HCOLOR = 4: HPLOT 
X0，Y0 

215 X0=X：Y0=Y 

220 GOTO 70 * 

250 IF ASC(B$ )< >27 THEN B$ = A$ : GOTO 70 
260 B$ =“0”:GOTO 70 

300 PRINT : PRINT CHR$ (4);“BSAVE”；M$ ;”，A 
$ 6000,L W ,L；GOTO 70 

400 PR # 1 ： PRINT“LENTH = ”； L: POKE 1913,2： 


PRINT CHR$ (17)：GOTO 70 
参考文献 〔 1 〕张金 翰 : 不 规则图形的键盘作图及存盘方法。 
《苹果园》 1988 年第 3 期。 
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• 苹果园地 • 

为 BASIC 增加一条绘图命令 

华南理工大学钟华宁 

众所周知， APPLE BASIC 绘图能力较差，高分辨 
绘图语句仅有 HPLOT DRAN, (XDRAW) 等几个少得 
可怜的语句，这对我们编制大型软件时就极不够用 
了，因此，编了下面程序，它为 BASIC 提供了一条新命 
令 ：向任 意角度画线命 令：格 式为⑴ & a ,， L 1; a 2 山 
…•••（2)&*#31，1*<〗;32，1* ( 2"“"(31，3广.为角度值， Li ， L2 
…为长度值）如画一条沿 45° 角长度 50 的斜线，则用 
& >.45, 50 即可，注 意：调 用本命令时必须先用 HPLOT 
语句定下起始点。与&的区别在于它与 LOGO 语 
言中的 LT.RT 命令相似，它是以前一次画的斜线为 x 
轴正向画下一次的线段。 ^ &.90,50,180,50,270,50, 
360,50 与 &#90,50;90,50;90,50 ; 90,50 结果一样， 
都是画出一个边长为 50 的正方形,使用极其方便，角 
度值可取任意实数，并且可跟多对数据，希望本程序 
能给爱好用计算机绘图的读者以帮助。程序（机器语 
言) 如下： 


7000- 

20 

B7 

00 

C9 

23 

DO 

2F 

20 

7008- 

B1 

00 

A9 

01 

8D 

E5 

70 

20 

7010- 

67 

DD 

20 

63 

EB 

A0 

70 

A9 

7018- 

E0 

20 

BE 

E7 

20 

63 

EB 

AD 

7020- 

E0 

70 

F0 

08 

A0 

B4 

20 

01 

7028- 

E3 

20 

Cl 

E7 

A0 

70 

A2 

E0 

7030- 

20 

2B 

EB 

4C 

4D 

70 

A9 

00 

7038- 

8D 

E0 

70 

8D 

El 

70 

8D 

E2 

7040- 

70 

8D 

E3 

70 

8D 

E4 

70 

8D 

7048- 

E5 

70 

20 

67 

DD 

A0 

70 

A9 

7050- 

DB 

20 

7F 

E9 

A2 

00 

20 

23 

7058- 

EB 

20 

EA 

EF 

A0 

70 

A2 

E6 

7060- 

20 

2B 

EB 

A0 

00 

98 

20 

F9 

7068- 

EA 

20 

FI 

EF 

A2 

FA 

20 

23 

7070- 

EB 

20 

BE 

DEK20 

F8 

E6 

86 

7078- 

EC 

A4 

EC 

20 

01 

E3 

A0 

00 

7080- 

A9 

FA 

20 

7F 

E9 

20 

21 

EB 

7088- 

A4 

E2 

20 

01 

E3 

A0 

00 

A9 

7090- 

93 

20 

A7 

E7 

20 

DO 

EE 

20 
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* 苹果园 地， 


计算机编程与操作中的几个问题 

曲阜师范大学物理系狄振强 


在计算机编程过程中，往往会出现一些令人不愉 
快的事情，有时候我们会遇到一些意想不到的问 题:所 
编的程序虽然无误，但却得不出预想的结果，有时甚至 
出现莫名其妙的错误。这些问题有的是由计算机硬件 
本身造成的，如计算机在小数处理上的误華可能造成 
条件语句不转向错误等，有的则是计算机固化程序软 
体造成。本文在此对 APPLE 计算机编程过程中遇到的 
一个隐含错误进行讨论，使大家在实际操作中,避免类 
似隐含错误的发生，以减少不必要的麻烦。 

一、用造型表作图时的一个人为错误 

用计算机绘制图形时，往往要用到造型表。但有时 
绘出的图形却不是按人们的设计要求画出的，例如有 
时一个完整造型仅画出其中的一部分或形状与原设计 
不一致等等。在这里对其中一个可能出现的问题进行 
讨论，以免建立造型时类似问题的发生 s 

在建立造形表时，我们通常借助一些造型表生成 
程序，用 DRAW 命令将造型画出。 

但是，有时也会遇到一些问题。例如建立一个正方 
形造型，正方形中心作为起点，如图所示。 



造型图 


我们用 U 、 D 、 L 、 R 表示向量的上、下、左、右移 
动，用 Y 、 N 表示画点与不画点，则正方形造型的向量 
如下： 


将上述向 fi 输入计算机，并通过造型表生成程序 
建立起造型表后，却画不出图形来(其他情况有可能仅 
画出其中的一部分)。检查绘图程序，没有发现任何错 
误，检査整个建立造型的过程，也未发现任何漏洞。其 
实，这个问题的出现，并不在于建立造型表的过程有什 
么失误之处，也不在于绘图程序的差错，问题在于造型 
本身。在计算机对造型向 M 进行组合时，每两个或三个 
向 tt 放在一个字节中，这样依次排下去,直至所有向量 
排完为止，最后用一个全芩字节标志造型结束。在组合 
过程中，对于一个无点上移向 S , 计算机是用岑进行标 
志的，如果有连续三个无点上移向 M 被组合在一个字 
节中，或者前两个是无点上移向 M 三个因是打点向量 
而放在下一个字节，则两个无点上移向量同样占用一 
个字节，那末，这实际上就造成了全零字节，给计算机 
造成了造型结束的假象，故全零字节后面的内容不再 
画在屏幕上。这就是我们前面所出现的问题的原因。 

这是计算机造型表绘图设计上的一个不足之处。 
在我们的实际工作中若不注意这个问题，很可能使得 
一些造型不能完整地画出来，产生人为的错误。因而了 
解向 M 的组合对于正确建立造型表是非常重要的。在 
建立造型过程中，必须避开造成全零字节的情况，使能 
获得一个完整的造型。 

对于前面出现的问题，可作如下 处理: 造型向 M 在 
起点位置开始移动时不是向上，而是向其他方向（例如 
向下）移动，再画出正方形各点，这样就可避开造成全 
零字节的情况，使图形能完整地画出来。 

二、计算机编程操作 

在计算机编程操作中，不同的方法对问题的处理 
起到的效果也不同，好的方法能更有效地处理问题，起 
到更好的 效果。下 面将介绍两种新颖的处理问题的方 



法。 

1. 一种快速、彻底的 “ NEW ” 命令 
用 NEW 命令清除内存并只是表面上清除了程 
序，而程序的实际内容并未清掉，也就是说，用这种方 


9. L，Y 

10. L,Y 

法“清除”的程序可以重新恢复。 

11. L，Y 

12. L,Y 

为了彻底清除程序，有的曾用下述方法进行清除， 

13. U,Y 

14. U,Y 

使计算机执行下面的 语句： 

15. U,Y 

16. U，Y 

K = PEEK (175) + 256 * PEEK (176) 

17. R，Y 

18. R，Y 

: FORN = 2049 TO K：POKE N ，0 :NEXT 


它先求出程序尾地址，再用 POKE 语句将程序首 
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至程序尾间的全部地址写入零。这种方法速度 较慢。 

下面介绍一个清内存的新法。在 BASIC 状态下， 
可用 命令 : POKD 230,8 

CALL 62450 

在监控状态下，用三条机器 指令： 

LDA # $08 

STA $ E 6 

JMP $ F 3 F 2 

用上述方法清除内存要比 NEW 命令彻底得多， 
它可以使主机内存从地址$800至$ 3 800内的所有单 
元全部置零，共计 8 K 字节的空间，足以使程序区得以 
彻底清除。同时，由於清除命令是调用机器语言子程 
序，速度快，整个清除工作瞬间即可完成。 

2、一种独特的恢复内存程序的简便方法. 

这里说的恢复是指用 NEW 命令清掉的程序的恢 
复，对于前面所讲的清除是无法恢复的。 

对于 NEW 命令后的恢复，已有不少文章讨论这 
方面的问题，这里向大家介绍的是一种新的内存恢复 
方法，它操作快速、简便、实用。 

NEW 命令在清除程序，完成了以下 工作: 将程序 
区首地址中前三个字节的内容清零，并将程序尾指针、 
变量表指针、数组表指针等复位。 

由於程序区首地址中的前三个字节为零,使得程 
序无法向下执行，既使能执行，也由於程序的各指针均 
已复位，故而在程序执行时变 M 、数组等将占用程序.存 
贮区，并将冲掉程序。另外，程序区首地址的三个全零 
字节也使得程序无法列表显示。 

下面介绍一种新的恢复程序内容的方法,它不需 
进入监控状态，也不需借助任何辅助程序，而是在 ba ¬ 
sic 状态下直接将程序恢复过来。 

(1)、程序的再现 

对于 NEW 掉的程序，用下述方法可以重新列出 
程序清单。 

打入 POKE 2050,8,并用 LIST 命令列表，即可看 
到程序的第一句，再打入 POKE 2 04 9 ， N +6, 则 LIST 命 
令后就可看到所有的程序内容了。其中的 N 值，是程 
序第一句除行号外的所有内容总数，即 basic 保留字 
的个数及此外所有字符个数之和。例如第一句内 容为： 

10 HC . R：HCOLOR = 3 

其中保留字为 “ HGR ” 及 “ HCOLOR =” 共两个，另 
外还有两个字符“：”及“3”，故此句除行号外的所有内 
容总数是4,即 N 的值为4。 

根据这种方法，可以很方便地对程序进行恢复，下 
面举一个具体实例。 


例如有下面的 程序： 

10 LET A =5 

20 LET B = SQR ( A ) - 

30 PRINT B 

打入 NEW 命令，然后对其进行恢复。 

首先 打入 : POKE 2050,8, < CR > 

LIST < CR > 

则可看到程序第一句 内容： 

10 LET A = 5 

这时我们可以查出这一句的内容总数 N 的值。除 
行号外共计为 4( 包括保留字 LET 、 字符 A 、=、5 共 4 
个）。然后把这个值加6,并用 POKE 语句写入2049单 
元中，即 打入： 

POKE 2049,4 + 6之后，再 打入： 

LIST < CR ) 

则程序既可全部显示出来了。 

(2) 程序的执行 

在用上述方法列出程序后，程序还不能执行。因为 
变量、数组指针复原并处于程序区中，这些变童、数组 
将冲掉程序区内容。通常，这些指针指向程序尾,其实， 
这些指针并非这么严格，只要不冲掉程序它们可以指 
向内存允许的任意地址中。 

这样我们在恢复程序时，不一定非要找到程序尾, 
也不一定非要将这些指针指向程序尾地址，只要使它 
们足够大并且不冲掉程序就可以了，例如我们将这些 
指针调整到$ 6000就完全可以。 

根据上面所述，只要键入下列命令 即可： 

POKE 106,96 
POKE 108,96 
POKE 110,96 
用 RUN 命令即可执行程序。 


(上接27页） 
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分页并列打印6502汇编语言程序 


广西南宁民族师范学校欧黄海 


在 APPLE H 监控系统下，打印汇编语言程序时， 

6078- 

61 

CE 

BF 

61 

DO 

F 8 

8 D 

BA 

打印机只在打印纸的左边40列打印程序，右边的40 

6080- 

61 

8 C 

BB 

61 

EE 

BD 

61 

EE 

列纸是空白，既浪费纸张又不便乎阅读，而且系统是以 

6088- 

BD 

61 

20 

DD 

FB 

20 

58 

FC 

20行一组打印程序，可能会打印多余的程序行，为此 

6090- 

20 

80 

F 2 

A 2 

00 

BD 

B 2 

61 

笔者设计了一个程序，很好地解决了上述问题,该程序 

6098- 

20 

5 C 

DB 

E 8 

E 0 

05 

DO 

F 5 

能分页并列打印汇编语言程序，打印完后，按页裁下， 

60 A 0- 

AE 

BD 

61 

A 9 

00 

20 

24 

ED 

可装订成册。 

60 A 8- 

20 

73 

F 2 

2 C 

Cl 

61 

10 

08 

本程序的使用非常简便，只须将要打印的汇编语 

60 B 0- 

29 

7 F 

8 D 

C 1 

61 

20 

A 2 

61 

言程序的首地址低位存入$6单元，高位存入$7单. 

60 B 8- 

E 6 

22 

A 9 

01 

20 

95 

FE 

20 

元，末地址低位存入$ 8单元，高位存入$ 9单元，然后 

60 C 0- 

8 E 

FD 

AE 

BE 

61 

20 

50 

F 9 


运行本程序即可。运行本程序后，打开打印机电源，装 60 C 8- A 9 AE 20 ED FD AE BD 61 

好纸，按一下空格键即开始打印，在打印过程中，如要 60 D 0- A 9 00 20 24 ED A 9 AE 20 

暂停打印，可按一下空格键，继续打印可再按一下空格 20 D 8- ED FD 20 8 E FD 20 93 FE 

键;如要在打印一页之前暂停打印，可按一下 P 键，继 60 E 0- AD B 8 61 AC B 9 61 20 66 

续打印可按一下空格键；如要退出打印可按 ESC 键。 60 E 8 - 61 8 D B 8 61 8 C B 9 61 AD 


打印完单页后，暂停打印，这时可把纸卸下，翻过来装 

60 F 0- 

BA 

61 

AC 

BB 

61 

20 

66 

61 

上，调整好后按一 

下空格键即开始打印双页(在反面打 

60 F 8- 

8 D 

BA 

61 

8 C 

BB 

61 

A 9 

01 

印)例如要打印 $ fdoc ~$ ffcb 这段程序，在监控系 

6100- 

20 

95 

FE 

20 

8 E 

FD 

A 6 

25 

统下，可如下操作 

: 






6108- 
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20 

Cl 

FB 
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B 1 

* 6：0 C FD CB FF \ 






6110- 
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20 

ED 

FD 
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28 

DO 

* 6000 G V 








6118- 

F 6 

20 

7 C 

61 

CE 

BC 

61 

F 0 

本程序原设计每页打印 64 行，亦可自定（不超过 

6120- 

07 

E 8 

E 4 

25 

DO 

B 7 

F 0 

El 

127)， 

可将自定每页打印行数存入 $61 B 7 单元。例如 

6128- 

20 

8 E 

FD 

A 9 

8 C 

20 

ED 

FD 

自定每页打印80行.在监控系统下,可如下 操作： 
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Applesoft 源程序以 B 类文件形式存盘，是一种简 
便可行的文件加密的方法。该方法有文章介绍过。即 
从零页$67、$68单元中取出程序的首地址作为 
BSAVE 命令 A 参数项的起始值。从$ AF 、 $ B 0 单元中 
取出程序尾地址值,再减去程序首地址值，作为 L 参数 
项的长度值。 

BSAVE 文件名， Aa，Ll \ 

便可将 A 类文件以 B 类文件形式存盘。 

但是，以此类型存盘的 Applesoft 源程序不能直接 
调入运行，需要先用 BLOAD 文件名\将该文件载入 
内存，然后再逐个恢复程序首址、尾址及变量区首尾址 
等，才能运行程序。而我们通常总是希望将盘中的文件 
直接调入运行。为此我们编了一种能完成上述功能的 
汇编程序，并将其放在 DOS 中，从而给 DOS 增加了一 
个可以直接运行 ARB 类型存盘的文件命令 （ RB 文 


件名）。具体操作步骤 如下： 

1. 开机引导 DOS 3. 3并进入监控系统。 

2. 调用小汇编或直接用机器指令码按下面的程序 
清单输入汇编程序。 

3. 将 DOS 命令关键字表中的$ A 8 EF 、 $ A 8 F 0 两 
单元中的内容改为$52、 $ C 2。 （即 RB ) 

* A 8 EF ..52 C 2 \ 

4. 将 DOS 命令句法字表中的 $ A 935、$ A 93 6 两 
单元中内容改为$20、$71。 

* A935：20 71 \ 

5. AC 退出监控系统，然后换上一个新磁盘或无用 
的旧盘。 

6. 键入 INIT 命令将该磁盘格式化。 

到此，新格式化的磁盘中便有了一个新 DOS 命令 
( RB 文件名）。功能相当于 RUN 。 

以后如要运行 ARB 型存盘的文件，只要键入 
RB 文件名 I ，便可将其调入运行了。 

下面试举 一例： 

首先调入任意一个 A 类文件。进入监控，从$6 7 、 
$68单元读得该程序首址(例为$ S 01) ，从$ AF 、 $ B 0 
单元读得其尾址（例为 $ cie )。 则该程序长度 L = 
$ C 16-$801=$415。 （长度可以不另加1)。然后将文 
件存盘。 

BSAVF . TRY , A $801, L $415\ 

现在使用新 命令: RB TRY \ ， 则刚刚存盘的 TRY 
文件被立即调入执行。 

该项修改命令在 Apple - n 及中华学习机上均运行 
通过。 

汇编程序 
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DOS 工具箱使用方法浅析 


武汉市第六中学陈凯 


苹果计算机公司在 1984 年曾推出一个名为 DOS- 
TOOL KIT (以下简称 DTK) 的软件，对我们设计 BASIC 
程序有很大帮助。最低硬件要求 48 KB 内存，当时售价 
为 75 美元。 

软件手册上有对 DTK 的综合评定，得分 如下： 

1. 提供的文件 (DOCVMENTATION) —— A 

2. 可靠性 （ RELIABILITY) —— A 

3. 容易使用 (EASE OF VSE) —— A 

4. 直观性 (VISUAL APPEAL) —— A 

5. 实用性 (USEFULNESS) —— A 

6. 售后服务 (VENDOR SUPPORT) —— C 

7. 容错性 (ERROR ANKLING) —— A 

8. 性价比 (ALUE FOR MONYEY) —— A 

9. 总评 (OVER ALL RATING)— A 

由此看来，对这套软件的评价还算比较高的。下面 
我们来具体地看看这套软件。 

DKT 是由以下五个主要程序段 构成： 

1. 程序员助手 （The Applesoft Programmers As¬ 
sistant, APA) 

2. 高分辨率字符发生器 （ Hi-Res charactor Gen¬ 
erator ,G ) 

3. 字符设计装置 (ANIMATRIX) 

4. 可重定位文件 ( R 型文件)载入器 
(The Relocating Lender) 

5. 6502 汇编编辑 （6502 Editor- Assembler ) 

程序员助手——这里面有一些可以帮你改进程 

序。当你运行 “LOADAPA” 程序后，稍等片刻，就会发现 
屏幕上出现以下字样括号中是笔者所加 注释： 

& RENUMBER (START), < INC > , < FIRST >, 
<LAST>( 更改行号） 

& HOLD (挂起现有程序，以便合并） 

&• MERGE (把已挂起程序释放，进行合并） 
&LENGTH (输出程序长度字节数） 

& COMPRESS ( 压缩程序，删去无用的 REM 
资料） 

& SHOW (反显示控制字符） 

& NOSHOW (终于 &JSHOW 命令） 


&. AUTO < START >,< INC > (自动编行号） 
&XREF (输出变量及所在行号） 

& •KEYS (附加键盘特征） 

需要说明以下几个 问题： 

第一,无论哪个命令，只要你的 输入童 （如果需要 
输入量的话)不合法或是运行环境不对，机器都会作出 
相应的反应。 

第二，合并程序时，若存在相同行号，机器会把重 
复行号列出，你如果需要，它还可以删掉每个重复语句 
中的一个,这样就保证一个程序里不会出现一个以上 
的相同行号 （ DOS 的系统盘中的 RENUMBER 就有可 
能产生这种错误）。 

第三,在压缩 REM 资料时，如果有的 REM 语句和 
程序中的分支、转向等语句有关时，只是将 REM 语句 
后的注释被删掉，而该语句本身还依然存在 （ 如果无 
关，整个 REM 语句都将被删掉。 

第四，以上指令在程序中或在直接执行状态下均 
能执行，使用时只需键入“&”和命令的开始一个字母 
即可(例如& SHOW 可'写成 & S )。 

另外， APA 本身是一个 R 型文件，无法直接运行。 

除了 APA 夕卜， DTK 中还有一个 R 型文件，那就是 
HRCG (高分辨率字符发生装置），它能在高分辨率图 
形屏上显示“文本”，看上去与文本页几乎一模一样。这 
个程序能允许你使用大小写标准字符，也允许使用其 
它形式字符组（如希腊、罗马、朝鲜等文字），你也可以 
使用自己创作的字符集。这样一来，苹果机也可以进行 
图文并显，在图案背景上写上文字。 

在这部分程序段中还包括 R 1 BBIT . SKYLAD , 
MASWELL 这三个游戏，它们同时也是运用 HRCG 的 
范例。 

在标准的 DOS 中，并未提供读写 R 型文件的命 
令，而 DTK 则提供了这方面的辅助程序，具体用法读 
者可以通过对 IOADAPA 和 IOADHRCG 这两程序进 
行分析而得出结论。 

最后， DTK 还有6502汇编/编辑的程序，这是已 
有大 M 介绍，不再详述。 
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APPLE 零页的用途 


顺昌高阳南享学校谢吉华 


在6502汇编语言中，由于零页操作指令短，速度 
快，所以 BASIC 解释程序、 DOS 操作系统、监控程序都 
频繁使用零页。各种系统程序的重要参数也都放在零 
页。某些参数遭到破坏后，就会给程序带来灾难性的 
后果。因此，许多 APPLE 使用乎册都督告读者，不要 
随意使用零页存储 单元。 熟悉和巧妙地使用这些单 
元，可开发出许多新的功能， 

有些功能是 BASIC 语言无法实现的。 

目前，有许多的 APPLE 资料中都有介绍 APPLE 
零页的用法，但不完整，只介绍了部分的零页地址用 
途。笔者经过几年的收集，把它介绍给大家，供参考》 
$0- $ 2:由监控程序转回 APPLESOFT BASIC 的 
指令，通常为 00-4 C 3 CD 4 
$3—$5:存放将某一字符串印出在屏幕的指 
令，将字符串印出的机器语言子程序 
的入口 S $ DE 3 A 。 


颜色号 

代码 

0 

0 

1 

42 

2 

85 

3 

127 

4 

128 

5 

170 

6 

213 

7 

255 


$ A —$ C : 存放转到 USR 函数的指令。 

$ 1 C :刚 才画图时所用的颜色代码。 

$20 :屏幕 窗口左极限列，内含值在0至3 9 之 
间通常为0 

$21 :屏 幕窗口总列数，内含值在0至仙之 
间，通常为40 

$22 :屏幕 窗口最_行数，内含值在0至別之 
间，通常为 

$23 :屏幕 窗口最低行数，内含值在0至 M 之 
间，通常为24。 

$24 :光标 的水平位置。 

$25 : 光标的高度。 

$26 :低分 辩图形像元位置基值矢量低字节。 
$27 :低分 辨图形像元位置基值矢量低字节。 


$28 :光标位置基值矢量低字节。 

$ 29 :光标位置基值矢量高字节 

$2 C :低 分辩图形列极限暂存单元;反汇编左 
助记符代码暂存单元。 

$2D :低 分辨图形行极限暂存 单元; 反汇编右 
助记符代码暂存单元。 

$2 E :图 像无颜色屏幕字暂存 单元; 反汇编寻 
址方式代码暂存单元。 

$2 F : 反汇编操作数字节计数存贮单元。 

$30 :低 分辩图形颜色代码。 

$31 :监控 命令中“ + ”、“_’’、“.”方式存贮单 

JLi a 

$32 :屏幕 显示方式代码正常， $7 F : 闪 
烁， $3 F : 反相 

$33 : 操作状态提示符存贮单元。 

$ 34-$ 35:变址寄存器暂存单元。 

$36 — $37:字符输出软开关，通常 S $ FDF 0 
$38 — $39:字符输入处理子程序地址，通常为 
$ FD 1 B a 

$ 3 A — $ 3 B : 指令计数器 PC 暂存单元。 

$3 C — $ 3 D : 磁带程序的起始地址指 示器; 执行 
MOVE 命令时，数据来源区的首址。 
$3 E — $3 F : 磁带程序的终止地址指示器；执行 
MOVE 命令时，数据来源区的尾址。 
$42 — $43: 执行 MOVE 命令时，数据目的区首 
址„ 

$45 : 累加器 A 暂存单元。 

$46 : x 寄存器暂存单元。 

$47 : Y 寄存器暂存单元。 

$48 :状态 寄存器 P 暂存单元。 

$49 :堆栈 指示器 S 的暂存单元。 

$ 4 A — $ 4 B : 整型 BASIC 变量的起始位址 
$ 4 C — $ 4 D :整型 BASIC 最终位置指示器。 

$4 E — $4 F : 随机数产生器 
$50 — $51:语句行号指示器，动态登录着后继 
被执行的语句行号。 

$ 62一 $ 66:最后乘除的结果暂存器。 

$67 — $68:浮点 BASIC 程序的首指针，通常为 
$801 

(下转39页) 
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计算机辅助教学效果分析之一 

一美国华脱福特学校调查 
北京师范大学心理学系 陈琦副教授 

前言 

计算机用于教育，在国外工业发达国家已经有三十余年的历史。在我国，如果从1982年原教育部通知在全国五所大学附 
中试验开设计算机选修课，从而开始了有组织有领导的讦算机教育试验算起，至今还只有七年的经验。由于八十年代以来微机 
技术的急速发展，社会上应用计算机日益普及，使教育领域应用计算机的可能性和必要性大大增强，计算机将引起教育领域一 
场全局性的革命性变革，从而对人类心理•发展产生深远的影响，我国中华学习机的研制和投产，不仅能进一步促进中小学计算 
机教育的发展，而且为计算机进入家庭，占领校外教育阵地创造了条件。然而，在计算机剧增，越来越多的中小学拥有计算机并 
使之运转的情;兄下，经过多年的实践，人们仍然不断地提出了以下的问 題：计 算机进人普通教育后，究竟能使教育和教学过程 
发生什么样的变化？教师和学生在教与学的过程中的作用将有哪些改变？信息技术对原有课程的改革和沉重心理的发展捎产 
生何种影响？为何产生这种影响等等。计算机进入普通教育的确是一个既新又大的研究课趨，如何把这一最现代化的技术手段 
结合到教学中去并取得较好的故果，取决于一系列条件。重要的在于总结出这些条件来。因此，了解和总结国外计算机教育的 
经验和问題，分析我国计算机教育的现实的和潜在的条件、问題，对我国方兴未艾的计算机教育的徤康发展也许是有裨益的。 
笔者曾于1988年上半年在美国对以华脱福特学校为代表的计算机用于教育的情况作了系统的 调查； 近年来在国内也从事过 
计算机辅助教学的初步实验。试图以这些调查和实验研究为素材，对计算机辅助教学的情况、故果加以分析探索计算机辅助教 
学的各种条件以及它们如何影响计算机教育的故果。由于调查和研究的对象范围的局限，提出的分析难兔以偏 慨全； 敬请同行 
和专家们、老师的批评指正。 

和成绩等等，并提供给教师。教师可根据学生的心理能 
力测验图和成绩，进行个别化教学。 

学生除了有一定的时间到学习中心上课，每个教 
室中还有至少一台 IBMPC 机，有些课件已从小型机移 
植到 IBM 机，以备个别学生随时使用。每个学生每天 
平均有一小时在计算机上学习。当然这一小时是包括 
各科使用计算机辅助学习的时间。例如，小学二年级数 
学课，每周在课堂上课时间为2节共90分钟（2x45)， 
而每周上机学习数学则为5次共100分钟 （5x20); 四 
年级数学课为每周5节共225分钟 （5x45) 在课堂上 
学,5次共100分钟 (5x20) 为上机学习；初中数学课堂 
教学与上机学习相等，都是3X40,髙中教学则课堂学 
习为2X40,上机学习增至4X40,超过课堂上课时间。 
另有一些课如法语和程序设计全部在学习中心利利用 
计算机自学，教师仅仅巡视、作个别指导，起一个伙伴 
作用。阅读和写作课则规定课堂学习与上机学习比例 
为2:1。 

用计算机辅学生学习，教师应起什么作用？在学生 
上计算机学习以前或以后，教师进行巡回观察并对个 
别有特殊需要的学生作必要的帮助。在 i 睪后，机房管理 
员把每个学生自学的进度，练习的成绩，错误所在等记 
录交给教师，以便对症下药进行个别化教学。 

经过几年试验，华脱福特学校使用计算机于各科 
教学取得了显著成绩，该校在 1981 年创建时，学生水 
平在全国处于中等地位或中等略偏上水平，经过6年 
试验至 1987 年已提高到名列全国前茅。由该校 1981 


一、华脱福特学校的基本情况 

华脱福特学校是 WICAT 公司以计算机用于教育 
工作的实验学校。该校始建于 1981 年，创建初只有幼 
儿至五年级》 1982 年增设初中，即六至八年 级；〗 987 年 
开始有第一届高中毕业生； 1988 年已有从幼儿园至十 
二年的学生共计 400 人。 

从建校开始，该校就由 WICAT 公司提供两类计算 
机系统:①单用户的个人计算机，即 IBM 机; ②学生专 
用的“学校”计算机，能同时供 32-64 个学习者使用。 
主机有整套计算机课件，整套测试系统和教学管理系 

统。 

该校所使用的整套教学软件（课件）是由 WICAT 
公司组织各方专业人员合作开发，并到学校进行过现 
场测试。教师们参与提炼、改进以及帮助研制执行策略 
以便利用所得材料去优化学生的学习。 

全校共有三个计算机课堂，又称计算机学习中心。 
整套教学课件包括数学(从幼儿园到高中水平）、阅读、 
法语、英语、写作、程序设计语言等科目。这些计算机课 
程大部分是综合性的，既包括用对话形式出现的在课 
本中所要求的系统知识，能供学生在计算机帮助下自 
学;也包括各部分教材的操练和练习;还包括许多游戏 
以便提高兴趣;此外还有不同难度的问题求解.可供不 
同程度的学生进一步提高和加深学习。学习/中心还具 
备学生自适应测试系统，学习者心理能力测验系统，以 
及教学管理系统。中心的管理人员可以随时记录学生 
的学习情况，诸如学习的进程，产生错误的问题、练习 
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年和1987年施测的爱荷华小学基本技能所得的分数 
在全国常规的百分位的变化可见(见表 1): 



1981( 建校初) 

1987 

相对提高 

数学 

59( 百分位） 

95 

61% 

语言学科 

69( 百分位） 

92 

33% 

阅读 

73( 百分位） 

91 

25 % 


程中的作用与普通学校有何不同？学生对 CA 1 有何评 
论，是否都是颂词？带着这些问题，我们对学生作了一 
个问卷调查。对该问卷的回答可以看到学生对计算机 
辅助教学的态度以及计算机辅助各科教学，其效果需 
要视一些条件而有不同。 

二、对计算机辅助各科学习的问卷分析 


表1:华脱福特学校爱荷华小学基本技能测验的情况 
数学基本技能提高了 36个百分点，语言学科提高 
了 23个百分点，而阅读则由第73百分闰提高了 28个 
百分点，达到91百分位。其中数学成绩提高最明显。除 
了在标准化测验分数提高将近40%以外，高中毕业班 
23人中有4人蠃得全国荣誉姿态；在全州50名最高 
数学成绩中华脱福特学校学生占10人。1988年该校 


数学成绩占全州第一名，而且高初中数学成绩冠军都 


在该校。在全国32,000人参加的德语考试中，犹他州 
有42名学生分数在第90百分位上，华脱福特学校占 
10 名； 在随后的考试中，该校学生获高中组第一和第 
三名，初中组获第一、三、四名，从而该校被命名为犹他 
州最佳学校。在法语竞赛中，该校12名参赛者有 U 名 
达优秀，其中4人获分组竞赛第一名。 

以上事实显著表明，经过数年的计算机辅助教学 
试验， W 1 CAT 系统的实验学校取得了明显的成就。据 
该系统的研究与开发部负责人莱什教授介绍，在美国 
全国约有400多所这样的学校，使用 WICAT 计算机及 
其开发的全套课件。各校实验时间长短各异，但经过不 
同时间的试验，都取得显著进步。例如在犹他州盐湖城 
郊区的华脱福特桑地分校，建于1986年，运用华脱 
福特实验校的模式和几年的经验，不到一年时间的试 
验就取得显著成就。表2是该校在不到一年时间内用 
爱荷华基本技能测验所测得的进步。 


1986 年秋季 
数学 75( 百分位） 

阅读 76( 百分位） 

语言学科 71( 百分位） 


1987 年春季 相对提高 
89( 百分位） 18.6% 

84( 百分位） 10.5% 

87( 百分位） 22.5% 


表2:华脱棉特一桑地分校爱荷肀小学基本技能测验情况 

由于各州实验学校在种族分布、文化背景、社会经 
济地位等方面的差异以及教师条件的不同，因而各校 
提高的情况也有较大差别。有的成绩提高几乎是成倍 
的。例如，在芝加哥的科尔曼学校中几乎90%学生是 
黑人，据在1985年至1986 一年中对 2-6 年级的测 
验，其数学相对提高 122. 7%，阅读则提高 111. 1%，比 
起其它实验校，其进步幅度更大。 

取得以上成就的主要经验是什么?在这类学校中 
是否用 CA 1 就自然地提高了学生的 成绩？ 学生是否在 
学习中都有很高的积极性？教师和学生各自在教学过 


88年3月，对该校176名 6-10 年级学生就现有 
六门使用计算机进行系统学习的课程进行了问卷调 
查。这六门课程 是:六 、七年级的阅读理解，八年级的阅 
读基本技能，中学数学，数学基本技能，化学和英语基 
本技能。问卷采用不记名回答的方式，只填上所调查课 
程的名称。问卷包含21个按喜好评等的多重选择题以 
及三个自由答题(见附录一)这种喜好式多重选择题中 
要求学生对一题目中五个不同等级的同意程度任选一 
等。如“这门计算机课程使用很方便”这一道有①很同 
意，②同意，③无所谓（中立），④不同意，⑤极不同意， 
五种选择。按①一⑤的选择分别记5— 1分 。如: 很同意 

一 5 分;同意一 4 分 . ，极不同意一 1 分。在这 2] 道 

题中有16题是用积极语句是表达的，如“我喜欢去计 
算机室”，“这门计算机课程使该学科 g 有意思”等;而 
其它5题则是用消极语句表达的，如“在计算机上学习 
很烦人”(见附录一，第 6,8，1〗，17 题）。在 16 道积极语 
句表达的题中又可分出8题为客观评论性的，如上述 
“这门计算机课程使用很方便”，“计算机知道我作的对 
错”(见题 1，3,/|，7，12,13，]4，15); 而其余 8 题则相对 
讲是一种主观的态度。例如 :“我 愿向我的朋友推荐这 
门课程”“我喜欢计算机室”等（见题 2,5,9,10,18,19, 
20,2】）。 参加调查的学生人数每班大致在 25— 28 人。 
数学基本技能则为18人。 

按照对这对道题的选择，凡对积极陈述题的平均 
分在 3. 5分以上，对消极陈述题平均分为2，. 5分以 
下，被认为是对该课件持积极的态度，或称时该课程反 
• 应积极。 

从学生们对各科各类题的反应看，差别很大。总的 
看来，对阅读理解(六年级)和中学数学的评价较高。其 
积极陈述题无论是客观评论类还是主观感受类，平均 
分都超过 3. 5分（阅读理解为 3. 6分，其客观评论为 3. 
57,主观感受为 3. 63;中学数学为 3. 62分，其中客观 
评论是为 3. 65分，主观感受类为 3. 60分），这意味着 
大多数同^是同意或很同意对这两门课件的积极陈 
述;从另一 ^面看，对这两门课的消极陈述题的反应， 
其平均分又都低于 2. 5分（其中阅读理解为 2. 37分， 
中学数学为 2. 44分），意味着大部分学生不同意或极 
不同意这些消极陈述，这一点与对积极陈述题的积极 
反应恰好一致。学生们对这二门课的积极肯定的反应 
也表现在问卷中的三道自由答题中，例如，在回答这门 
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课程中的你最喜欢的是那部分时，学生们答问态度都 
很积极，他们详细地指出了这两门课件的优点，有的列 
举了他们特别喜欢的各部分内容，如“阅读理解”中的 
生词提示”“画画”、“打字”、标枪投掷”、快速思考”解决 
它”、“查字典技能”等等。其中有许多学生反应几乎相 
同，有些还具有一定的分析。比 如说: “它很有挑战性”， 

“它给你不止一次机会，而且能对你作出帮助”,“它使 
你能按自己的步子学习，“它很好玩”“它比老师好，我 
喜欢这些活动 "，等 等反应，既表现内容的趣味性能吸 
引学生，也表明内容的启发性、挑战性，在培养技能上 
的有益性，教学方法上的个别化特点以及那种既适合 
于儿童现有水平，又不限于现有水平的符合心理发展 
规律性等特点能博得学生对课件的喜爱。 

从问卷分析中表明，学生对英语基本技能课(九年 
级)的反应最差。对积极陈述题的平均分为 2. 6.7,其中 
对客观评论类题平均为2,83分，而对主观感受类题平 
均为 2. 50分，这一情况表明，大部分学生编于不同意 
和极不同意对英语基本技能课的积极 陈述; 相反，对消 
极陈述题的平均分为3_ 82则意味着一般学生都趋问 
于同意对该软件的消极陈述。例如对该课件问卷第六 
题“在计算机上学习很烦人”,26名学生中21人同意 
或很同意这一陈述(其中15人选很同 意）； 第11题“我 
宁愿让教师教而不是在计算机上学”，26名学生中有 
18人选择“很同意”或“同意”这一陈述（其中15人选 
“很同意”）。可见该班学生对这门课的强烈反感。这种 
反感特别表现在对主观感受类题不同意的情况比对客 
观评论题更甚(平均分为 2. 50和 2. 83)。如第10题“我 
希望能更经常地在机房去学习”。26人中有17人选择 
极不同意。 

比起阅读理解和中学数学这两门课程来，为什么 
英语基本技能的课件效果如此差？ 一些学生在自由答 
题中作部分回答。他 们说: “这门课内容太狭隘和令人 
厌烦”，“有时弄得令人难以忍受地单调”，“这种虚构的’ 
故事令人感到自己好象是幼儿园小孩，它太假了”，“太 
容易了就使人厌烦”，等等。这些回答提出了一些值得 
关注的重要问题。例如，课件本身的构思和设计、程序 
编制技巧等方面可能是不错的，但如果对使用对象了 
解不够，对其水平估计过低，再好的设计也不能激发起 
学生学习的动机作用；课件内容的刻板性、单调乏味， 
缺乏吸引力，可能是引起学生消极反应的最重要 原因； 
如果内容既不吸引人，训练范围又窄，不能对学生提出 
一定的挑战性，这些因素结合起来，自然会产生消极的 
反应。 

除了上述三门课程我，学生们对其它三门计算机 
课件的反应大致对中间编积极的态度。其中数学基本 
技能是这三门中反应最好的。它的积极陈述题平均在 


3.5 分以上 （3. 62)，消极陈述题则在 2. 5分以下，阅读 
基本技能和化学则趋于中间态度（对积极陈述题和消 
极陈述题的平均分都在3分上下）。但是在自由答题中 
反应趋于积极，能指出这些课件能帮他们按自己的进 
度学习，当教师不在而他们又需要帮助时，能.求助于计 
算机等等。 

以上的问卷分析表明，即使象华脱福特这样一种 
利用计算机辅助学生学习取得很大成绩的学校里的学 
生，对计算机各科课件反映出来的态度也大相径庭，更 
有必要探讨计算机辅助教学中各种影响因素。也应指 
出，华脱福特学校的学生从幼儿园是就开始接触计算 
机课程(包括计数，学字母等等），由于在各科教学中计 
算机辅助已成为有机组成部分，他们对于不与计算机 
相联系的教学缺乏经验。他们对计笄机课件所作的评 
价和所反应的态度不免有一定的局限性。尽管如此，这 
些反应还是在一定程度上表明了软件评价中所要求的 
标准和影响计兑机辅助教学效果的一些因素。例如，就 
课件的内容和设计而言,它是否有趣？是否具有恰如其 
分的挑战性？它是否能让学生按自己的步子学习？是否 
能帮学生学到比普通课堂上所学到的 更多？ 它能否辩 
別学生的对错？能否给学生鼓励而不是令他们沮丧？它 
是否具有一定的灵活性，使学生能作必要的控制等等。 
这些特征,看来在我们调查的六年级阅读理解和中学 
数学两门课程中都具备，因而学生的反应很好。而英语 
基本技能课之所以得到消极的反应，就是因为缺乏其 
中的许多特征。 

每一个教学软件在设计和开发时总有一个精心考 
虑的过程，很难绝对地说某一软件的优劣。重要的在于 
把课件的应用放到学生学习的全部背景中来考虑，发 
挥其长处，限制其局限性，提高其适合性，这就需要我 
们在利用这些教学软件时，探讨各种条件，使化费昂贵 
的软件开发的性能价格比更好，利用得更为有效和合 
理。这也是计算机辅助教学一个值得深入研究的课题。 
附录一学生问卷题 

计算机课程名称_ 

SA A N D SD 

1- 这门计算机课使用很方便。 

2. 我喜欢去计算机室 

3. 这一课件使该学科更有意思 

4. 计算机上工作不光是游戏，而且是认真的工作 • 

5. 用了这一课件，可以提高我的该门学科的成绩。 

6. 在计算机上学习很烦人 . 

7. 计算机知道我作的对错 

8. 这一课件使用很不方便 

9. 我愿按自己的速度工作 
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10. 我希望能更经常地到机房去学 

11. 我宁愿让教师教而不在计算机上学习 

12. 在计算机上工作是认真的学校作业 

13. 该课件能使学习更容易 

14. 该课件能在我需要时给我帮助 

15. 该课件激发我尽力做好作业 

16. 比起计算机作业，我更愿意用纸和笔作 

17. 我自己一人在计算机上工作就会厌烦 

18. 不用别人帮助，我就能学懂计算机上的课文 

19. 我喜欢用计筧机，因为没人能看到我的错误 


20. 我愿向我的朋友推荐这一课件 

21. 我愿下学期还用这一课件 

第二部分问答题 

1. 这门计算机课程中的你最喜欢什么？ 

2. 这门计算机课程中你不喜欢什么？ 

3. 其它评论 

注: SA —完全同意 A —同意 N —无所谓 D —不同 
意 SD —极不同意 


附录二 



ITEM 

lo 

2 s 

3 o 

4 o 

5 s 

6 o 

7 o 

8- 

9 s 

10 s 



RC 7 

3.215 

3. 407 

3. 296 

3. 333 

3. 407 

2. 852 

3.321 

32. 407 

4. 370 

2. 963 



RC 6 

3. 704 

3. 741 

3. 630 

3. 296 

3. Ill 

2. 556 

4. 074 

2. 148 

4.852 

3. 222 



RB 8 

3. 750 

3. 000 

3. 071 

3. 571 

2. 929 

3. 500 

4.036 

2. 357 

4. 393 

2. 500 



MSM 

4. 000 

3. 640 

3.800 

3. 280 

3. 600 

2. 640 

3. 920 

2. 080 

4.640 

3. 360 



MBS 

4.222 

2.833 

3. 278 

3. 333 

2. 944 

3. 611 

3. 389 

2. Ill 

4.556 

2. 611 



CIO 

3. 720 

3. 481 

2. 840 

3. 640 

3. 240 

3. 240 

3. 240 

2. 720 

4. 280 

3. 480 



EB 9 

3. 500 

1.808 

2. 385 

3. 077 

2.231 

4.231 

3. 269 

2.615 

4. 077 

1. 520 



11- 

12 o 

13 o 

14 o 

15 o 

16- 

17- 

18 s 

19 s 

20 s 

21 s 



3.370 

3. 222 

3. 481 

3. 407 

3. 444 

2. 630 

2. 926 

3.519 

3. 259 

2. 920 

3.556 



2. 667 

3. 222 

3. 556 

3. 407 

3. 667 

2. 000 

2. 481 

3. 889 

3. 000 

3.519 

3. 704 



3.643 

3. 250 

3. 071 

2. 929 

3. 107 

2.714 

2. 571 

3. 679 

3. 036 

2. 679 

3. 000 



2. 375 

3. 200 

3. 760 

3.640 

3. 565 

2. 167 

2.913 

3. 826 

2. 739 

3. 304 

3. 652 



2. 889 

3. Ill 

3. 389 

3. 222 

3. 278 

2. 722 

3. 353 

3. 500 

3. 056 

2. 889 

2.944 



3. 320 

3. 440 

3. 480 

2. 840 

3.400 

2. 720 

3. 320 

3. 480 

3. 600 

3. 120 

3. 600 



4.231 

2.654 

2.615 

2. 538 

2. 615 

3. 371 

4.269 

3.731 

2. 808 

2. 077 

1. 731 



PS SUM 

PS AV 

OPS 

OPSAV SPS 

SPSAV 

NGSUM NG AV 

人数 

HC 7 

54. 726 

3. 4200 

27. 319 

3. 415 

i 27. 407 

3. 426 

14. 185 

2. 837 

27 

RC 6 

57. 594 


3. 600 

28. 556 

3. 57 C 

» 29.038 

3. 630 

11. 852 

2. 3704 

27 

RB 8 

52. 001 


3. 250 

26. 785 

3. 348 

25. 216 

3. 152 

15. 785 

3. 157 

28 

MSM 

57. 926 

3. 620 

29. 165 

3.646 

29.761 

3. 595 

12. 175 

2. 

135 

25 

MBS 

52. 605 

3. 288 

27. 222 

3. 403 

25. 383 

3. 173 

14.686 

2. 9372 

18 

CIO 

54.881 


3. 430 

26. 6 

3. 325 

28. 281 

3. 535 

15. 32 

3. 064 

25 

EB 9 

42. 636 

2. 665 

22. 653 

2.832 

19. 983 

2. 499 

19. 077 

3.8154 

26 


PS-POSITIVE ITEMS , OPS-OBJECTIVE PS ， SPS . SUBJECTIVE PS , NG-NEGATIVE ITEMS 
* 注:题 y 标号后 o 为客观评论题， s 为主观态度题，这两种都属积极陈 述题： 

有一号的好消极陈述题 

RC 6 —六 年级阅读理解 C 1Q _ 十年级化学 OPS —客观积极陈述题 

RC 7 —七年级阅读理解 EB 6 —六年级英语基本技能 SPS —主观积极陈述题 

RB 8 —八年级阅读基本技能 PS —积极陈述题 NG —消极陈述题 

MSM — 中学教学 
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辅教妍究 


成使讨算机健盘操作教学 


湖北省实验小学’肖作钧 


少年儿童学习电子计算机，一定要注意操作训练， 
要不然，从小养成不良的操作习惯，以后就很难纠正 
了。 

计算机操作训练中首先要注意的就是键盘指法训 
练。有些儿童，由于没有进行这方面的训练，操作起来， 
动作难看，效率极低。文稿放在一旁，看一个字符，击一 
下键，摇头晃脑，东倒西歪，而且一双手的十个指头，只 
有二、三个起作用，更有甚者，干脆单手单指来它个“一 
指禅”。这样下去，不仅“坏了”现在，而且影响将来。 

为此，我们在计算机教学的实践中，对“键盘操作 
训练”这方面进行了如下一些摸索。 

使用计算机的人都知道 ：微型 计算机(如中华学习 
机 COMX PC 机等)的键盘与英文打字机的键盘是很 
相似的，特别是二十六个英文字母键和十个阿拉伯数 
字键的排列，基本上是一样的。所以英文打字机的击键 
法，基本适用于微机。击键法不止一种。一般说来，初 
学时，可运用视觉击键法，即眼睛既看程序文稿又看键 
盘，按照十个手指的具体分工，进行击键操作。在比较 
熟练的前提下，可运用触觉击键法，那就是只看程序文 
稿，不看键盘，凭经验和手指的条件反射，准确地击键。 
关于视觉击键法，触觉击键法和十个手指头的具体分 
工以及怎样分步练习，在华中师范大学出版社出版的 
《青少年计算机操作训练》一书中有详细介绍，这里主 
要谈一下如何组织教学。 

刚开始可用画好的实物键盘图（用硬壳纸，画得与 
实物键盘一样大），严格按十个指头的具体分工，进行 
原位键（ 八 ，5,0/，*1，1<：丄， ； 键）以及范围键的练习，统 
一指挥循序渐进。在这个阶段一定要告戒¥生 :刚开 
■始，宁可慢，不可乱。 

在基本掌握了手指分工的技术后，再上机进行“实 
感”练习。在微机键盘上进行“实感”击键练习时，一定 
要体现“弹击”二字，即手指动作要迅速果断，如碰针尖 
一般，落指一击，迅速抬起，并回到原位键的上方。击键 
的节奏要均，手腕要悬空，不要倚扶在键盘上，要以手 
指的动作带动手腕协调移动。同时要注意•.计算机键盘 
的击键方法与英文打字机是有区别的，虽然都要体现 
“弹击”二字，但微机键盘所需的“弹击”力量要比打字 
机上所需的力量小得多。 

通过“实感”练习，学生对指法完全掌握并达到一 
定的熟练程度后，可在机器键盘上盖上一层布，让学生 


进行“盲打”的初步练习。先练原位键和范围键，当正确 
率在90%以上后，再进行二十六个英文字母的顺序和 
逆序练习。这个过程中，各个字母分别应由哪个指头 
按，一定要严格按“指法”规定办事，决不可乱套。盖布 
后的击键正确率达到90%以后，就可把学生的眼睛蒙^ 
上，进行“超盲打”练习。这种练习虽不能强求正确率达 
到很高很高的程度。但实践表明，学生象这样苦练，可 
以促使他们“背键盘”，使他们不但用手击键，还用心 
“击键”从而建立“键位印象”,达到条件反射的境界。因 
此，一旦解去蒙布之后，其操作水平(速度和准确率)就 
会产生飞跃。 

当以上每个步骤的要求达到后，应该说学生的操 
作水平也达到了较高程度，这时再告诉他 们:指 法的目 
的不只是为了好看，而是为了击键迅速、准确。因此，再 
不要过于机械地去强求“规定”，而应以灵活性训练为 
主。比如，按照指法规定，原位键是双手的基本位置，击 
任何键后，都要迅速回原位。但如触觉击键法的水平较 
高，可以不遵守这一规定，手腕可以“超脱”原位，随着 
手指的条件反射协调移动。 又如: 哪个键由小指弹击， 
一辈子都不能用别的指头去击，一下，否则就是大逆不 
道，犯了戒条，这也不必要。在测试，竞赛以及实际应用 
中，快和准是唯一的目的，错一、二次指法不要去理会， 
要有灵活性。再说，每个人都有自己的特殊点，他在哪 
个细节上，与指法规定有出入，不必强求，如坐姿，有的 
是近视眼，他的头比规定略低一点，甚至向前倾一点， 
这都是无碍大局的。但灵活性的训练一定是在掌握了 
触觉击键法并达到一定的后方行。不能一开始就这样， 
那就成了放任自流。所以归纳起来，指法训练是 :强调 
指法，初期机械，后期灵活， 

在组织方面，一定要把教技术和育人结合起来，指 
法训练是培养人的恒心和韧性以及毅力的好途径，它 
是一门技术，和理论知识的学习是有区别的，要让学生 
明 白：勤 学得技，熟能生巧。训练中既要有严格的训练 
要求和每个步骤的测试标高，又要组织得生动活泼。要 
根据少年儿童的年龄特征和心理特点组织教学。比如 
多用小竞赛的形式促使他们去刻苦训练。要把指法训 
练的大目标分解成苦干个小目标，逐个下达，逐个完 
成，使之在要求方面总处于新鲜感状态，不至于由于兴 
趣疲劳而影响情绪，影响效率。例如，可按以下顺序进 
行 训练: 原位键 练习； 范围键练习；上档键练习，功能复 
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合键练习；二十六个英文字母的顺序和逆序练习；表达 
式的输入练习，计兑机基本命令符号的练习，计算机程 
序的输入练习等。每一步规定一个标准，达到之后，再 
进行下一步的练习。为此，我们研制了一个系统训练， 
分步测试的“键盘指法训练”软件，让计算机充当“训练 
的辅导老师”。提高了学生的兴趣，提高了教学的效率。 

提高操作技术还必须掌握一些初浅的程序设计知 
识，对比试验的结果告诉 我们: 程序设计知识是操作技 
术产生飞跃的催化剂。其一，是在读文稿时，一看 就懂— 
可以逐段逐段的读，这样，眼睛可以适时地扫视屏幕， 
防止发生错误;其二，万一输入错了，查起来很容易，改 
起来很快。 

几年来，我们对计算机键盘操作教学这个课题坚 
(上接33页） 

$69 — $6 A : 指向简单变量空间的首指针 
$ 6 B — $ 6 C : 指向数组区域开始位置的指针 
$ 6 D — $ 6 E : 指向数组区域末尾位置的指针 
$ 6 F — $ 70: 指向字符串存贮区的开始位置 
$71 — $72: 通用指针 

$73 $ 1\ : APPLE SOFT 所能使用的最高位址 

加1 

$ 75 — $ 76: 目前正在执行行号的存贮位置 
$77— $78: 旧行号。由 CTRL — C , STOP , END ® 
定。 

$79—$7八:旧文本指标。 

$ 7 B — $ 7 C : 目前 READ 正执行的 DATA 行号 
$ 7 D — $ 7 E : 指向目前 READ 正在读的 DATA 在 
记忆中的绝对位置 

$7 F — $80:指示目前数据来源区的指针，在 1 N - 
PUT 语句执行时置为$ 2 01。在 
READ 语句执行时，其值为日常 DA — 
TA 所在的位置 

$81 — $82: 变量名称指位器，存放目前所使用的 
变童 

$83 — $84: 指向最后被使用的变量值的指针 
$9 B — $9 C . : 行号始址指示器。动态地指示着指 
定行号的语句所在 APPLESOFT 中 
I 间码程序区的首地址。 

$9 D —$ A 3: 主浮点累加器。其存放格式如下表 


$90 

阶码 

$9 E 

尾数高字节 

$9 F 

尾数次高字节 

$ AO 

尾数次低字节 

$ A 1 

尾数低字节 

$ A 2 

数符 

$ A 3 

$00 


持了试验。实践证明，按照上述方法进行试验，少年儿 
童完全可以在比成人要短得多的时间内正确地熟练地 
掌握 指法。 八五年，全国竞赛题中的上机题，要求30分 
钟以内输入完毕，并运行出正确结果。我校学生陈杲， 
刘琴3分半钟就完成了任务。英国皇家督学团来我校 
参观时，对学生的操作表演也伸出了大拇指。在今年 
(1989 年)暑假期间，湖北省在全国范围内帅先举办了 
中、小学生计算机操作技术大赛，我校学生黎庆伟，高 
凡两位同学以优异的成绩分别获得小学组的第一名和 
第二名。现在我们正在继续这项试验，正在向应用，实 
用方面发展，力求探索轻负担，高质童的良方。使这项 
试验不断创新，不断深化。 


$ A 4 :用于浮点算术运算 

$ A 5—$ AB : 从浮点累加器，其存放格和主浮点 
累加器一样。 

$ AC — $ AE :普通使用的标志、指针 
$ AF 一 $ B 0: 指向程序结束的指针 
$ B 8-$ B 9： 语句中间码存储地址指示器，指示 
着 APPLESOFT 所要读取的语句中 
间代码的存储单元地址。 

$ B 1—$ C 8： CHRGET 例行程序，这个子程序经 
常被调用。比如键盘输入结束后，存 
在键盘缓冲区的是些什么信息。运 
行程序时，程序区的内容是什么等 
等.都是通过调用该程序后获得识 
别的 

$ C 9— $ CD : 随机数的存储位置 

$ D 0 : RUN 命令标志 

$ D 1 — $ D 5: 在高分辨画图时所使用到的指针 

$ DA — $ DB :错 误语句的行号 

$ DC — $ DD：ONERR 错误地址 

$DE : 错误码 

$ E 0--$ E 1 : 高分辨图形横坐标暂存器。 


$ E 2 

高分辨图形纵坐标暂存器。 

$ E 4 

: 高分辨图形颜色代码暂存器 

$ E 6 

:高 分辨图形画页指针。 $20(1 页） 
$40(2 页) 

$ E 7 

: SCALE ft 

$ E 8—$ E 9: 指向造型表开始的指针 

$EA 

:高 分辩图形碰撞计数器 

$ F 1 

:控制 字符显示速度，其值由 SPEED 
= N 设定(通常为 FF ) 

$ F 3 

闪烁时间 

$ F 4— 

$ F 8 ：ONERR 指标 

$ F 9 

: ROT 值 


在使用时必须注意，指针(地址）的第一字节为低 
8位，而第二字节是高8位。 
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• 数据库技术 • 


数据库的“与或非”逻辑检索 

石家庄市公安局计算机室李彦超 


提 要 

“与或非”逻辑检索是一种方便灵活、功能较强的检索方式。它没有固定的检索模式，而是 
在使用过程中，用户根据自己的检索要求，通过人机对话的方式，将數据库的域名依照“与或 
非”逻辑组合起来，再输入各域下的要检索的具怵内容来检索数据库。本文介绍了数据库的“与 
或非”迻辑检索技术及其实现的一种方法。 


弓 I 言 

在管理信息系统中，检索功能占有很重要的地位。 
因为建立数据库的目的是为了使用它的数据，而使用 
数据的最基本方法就是检索数据库，所以一个管理信 
息系统检索功能的强弱在很大程度上决定了这个系统 
的性能。若要最大限度地发挥管理信息系统的功能，提 
高数据使用效率，就要想方设法提高其检索功能。笔者 
在软件设计中采用“与或非”逻辑检索，不但可完成多 
种需要的检索工作，而且使用起来简便灵活。 

假设一个信息系统的数据库有若干个记录，每个 
记录有几个域，记为： 

f ( l ), f (2), • •， f ( n ) 域名为“山， ..， t „ 


如果只能对其中 m 个域 ( m < n ) 进行单目检索，则 
实现起来较容易,但使用不方便，受到各种限制。如果 
能把这 m 个域按照某种逻辑组合起来检索，则可大大 
增强检索功能。“与或非”逻辑检索方法就是这样一种 
功能很强的方法。 

在这种方法中，典型的检索可表 示为： 

t ,- 单目检索 

tr I •“与 ”检索 

t , v tj . “或”检索 

(- tl ) •“非”检索 

tr (tjvUK (- t „) 组合检索。 

式中各下标均大于等于1旦小于等于 n 。 

这意味着“与或非”逻辑检索履盖了一般的简单检 
索，其各个域的选择和组合方式完全是随机的。因此这 
种检索方式能适应用户的各种检索需要，是一个通用 
的检索系统。 

整个过程主要有三个步骤组成，一是用户输入由 
域名和“与或非”符号及括号等组成的检索表达式，然 
后再输入各域名下要检索的具体内容。二是对原始检 
索表达式进行变换，即变为无括号表达式。三是检索数 
据库，用无括号表达式计算其结果。下面分别讨论这三 
个步骤。 

―、检索表达式的输人 

在检索数据库时，人们可能要求将几项条件组合 


起来从库中提取信息，用户这种要求的形式化描述，就 
是“与或非”逻辑检索表达式。 

为了准确描述用户的检索要求，不使输入的检索 
表达式产生歧义，必须对表达式的组成规则进行约定。 
一种方法是建立检索表达式的 BNF 范式，即检索表达 
式的语法，其形式化定义 如下： 

< SEX >：： = < EX ><. >|<. > 

< EX >：： = ( S >|< S ) + < EX > 

< S )：： = < Z >| < Z > * < S )|<(- Z )> 

< Z >：： = < T >|<( EX )>|<(- T )> 

< T >.：= t ,| t 2 |••••••| t „| 

其中 SEX 表示检索表达式 
* 表示“与”关系符 
+表示“或”关系符 
一表示“非”关系符 
点“.”表示检索表达式的结束符 
t , …… t „ 表示数据库的域名 
为了能对用户输入的表达式进行实时跟踪检查， 
可以根据这个形式化定义,建立一个状态符号表，在输 
入表达式的每一时刻只要用户输入的字符符合这个状 
态表，那么所输入的检索表达式就可以保证是合法的， 
有效的。 


检索表达式的状态符号表 如下: 


状态 

合法字符 

非法字符 

状态转向 

0 

(.域名 

)*H ■—回车 

1,7,6 

1 

一域名 （ 

)* +• 回车 

5,6,1 

2 

)* +• 

一域名（回车 

2,3,4,7 

3 

(域名 

)* +-■ 回车 

1,6 

4 

(域名 

)*+ —. 回车 

1,6 

5 

(域名 

)*+_. 回车 

1,6 

6 

)* =—. 

(一回车域名 

2,3,4,7 

7 

回车 

其它 

7 


按照这个状态符号表，在输入表达式的开始时(即 
0 状态），只能输入 “ C ” 或“.”或域名，其它符号均为非 
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法。若一开始输入“(”，这时状态由 0 变为 1 , 在 1 状态 
下可输入“一”或“(”或域名，其它符号为非法。若这时 
输入域名，状态则由1变为6,在状态6下又可输入“）” 
或“ * ”或“ + ” 或“. ”等等，直到输入”表示输入结束。 

在用户将语法正确的检索表达式输入完毕后，系 
统即按用户输入的域名检索表达式的顺序提示用户输 
入各域名下的具体内容，这可由一个录入数据子程序 
来完成。 ' 

在这个过程中，需把域名和域名下的具体内容联 
系起来保证其对应关系。 

这个过程结束时，得到域名检索表达式和各域名 
下的需要检索的内容。这两个部分在具体实现中都可 
用有序结构来保存。 

二、检索表达式的解释 

设用户输入的域名检索表达式为 T ， 其分量（即各 
个项)记为 t , ，其各域名下的具体内容记为 C ,， t , 和 G 有 
-■对应的关系。 

例如 : T = t , * ( t 2 + t 3 ) * (― t <) 

对以上检索表达式，有其域名下的具体内容 
CJC2C3C4 ，其中 C | 对应 ti ， C2 对应 t2 等。 

在检索表达式 T 中，由于包括 “与” 符号 * 、“或”符 
号+等，其各个符号的运算优先级不同，为了正确解释 
这个表达式，须把 T 变为无括号表达式 T „。 这样，运算 
步骤可按从左到右进行。 

对以上例 子有： 

T => T „ 

即： t | * ( t2 + t3 ) * ( — t <)=> t | t 2 t 3 + * t ) 一 * 。 

由于在 T „ 和 T 中，域名 t 的先后顺序并未改变，只 
是运算符相对于域名的位置有所改变，并且括号被去 
掉了，故把 c 和 T „ 对应起来也是不难的。 

另外，也可采用先变换 T 到 T „ ，再输入各域名下的 
内容 Ci 的方法。 

丁到！；的变换是通过一个找来实现的。先把 T 中 
的项(域名是一个项，一个运算符号或一个括号也是一 
个项）一个个从左到右读出，遇到域名就直接输出到 
T „ ，遇到运算符就应考虑进栈，但应根据此时样顶元的 
不同而做相应处理，或者直接进栈，或者在对找进行一 
定的操作以后，再使读入的运算符入找。在具体实现中 
先把开括号“（”送进栈底，把它作为找的底元。在读 T 
中的项时，遇到开括号“（”也要直接进栈，遇闭括号 “）” 
时将非底元的开括号后的运算符全部弹出栈，送入 T „ 
中，再退去开括号，这样括号就被去掉了。当遇到结束 
符“. ”时，表示 T 中的项已被读完，依次输出栈中全部 
内容，送入 T „ 中，直到遇找底开括号时转换完毕，得到 
T „。 T „ 也是以一个字符表示表达式的结束。 

三、检索数据库 


通过上述步骤得到无括号检索表达式 T „ 后，就可 
以应用 T „ 检索数据库。 

T „ 中的域名和数据库的域名是一致的。若数据库 
的域用一个有序结构表示，则它们之间可用序号联系， 
这样在检索数据库时，对于 T „ 中的每一项，先根据域名 
(隐含有序号)在数据库中找到相应的域，即确定 T „ 中 
的项和数据库中相比较的域，然后再把数据库域中相 
应内容 f ( t ,) 和用户输入的内容 C (和 t , 对应)相比较，把 
每项比较的结果用无括号表达式 T „ 进行逻辑运算得到 
最结果。 . 

这里有两种方法:第一种方法是对 1 \中的每一项 
t , (具体检索内容为 C | ), 检索数据库，若找到，则记下这 
个记录的地址，否则比较下一个记录，直到整个数据库 
检索完毕。这样对于每个 t , 中的 Ci ， 都得到一个地址集 
合，最后得到 m 个集合(设 T „ 中包含 m 个域名项） 。最 
后以这 m 个集合做为 T „ 中的域名项进行逻辑运算，比 
如相应于逻辑“与”运算，是两个集合的交集，逻辑“或” 
运算，是两个集合的并集，逻辑“非”运算是这个集合的 
非(注意这时整个空间是数据库的所有记录的集合）。 
按照 T „ 从左到右逐项进行，最后得到的一个集合即是 
满足 T 的所有记录的地址,即依据 T 的逻辑和 c 中的内 
容所选中的库中的记录。 

第二种方法是从库中读一个记录，依次 对 1 中的 
t , 的 0 和该记录中第 f ( t ,) 个域的内容相比较。这需要 
建立一个辅助有序结构，其形式和 T „ 相同，称为 TS , 其 
分量为 TS ,, TS 2 …… TS „, TS 中的运算符及其相应位置 
和丁„完全相同，但其中的非运算符仅存放 0 或]，若 c , 
和 f ( ti ) 配匹成功，则 TSi 置为1,否则置0,这样在对一 
个记录的各相应域比较完毕时， TS 是一个由 0 和 1 及 
逻辑运算符组成的无括号表达式，解释这个 TS , 就可以 
得到最终结果 0 或 1 。在解释 TS 时，其运算规 则是 ： 1 + 
1 = 1,1 + 0 = 1,1 * 1 = 1,1 * 0 = 0 ，一 1 = 0 ，一 0 = 1 。若 
最后运算结果为 1 ,则记下这个记录的地址，否则读下 
一个记录，直到读完整个数据库。‘简言之，这种方法是 
读一个记录进行各项比较，然后用 TS 进行逻辑运算， 
最后确定这个记录是否选中。而第一种方法是先依次 
确定在库中满足 Ci ( i > l 旦 i < m ) 的记录集合，然后再 
利用 T „ 对这 m 个集合逻辑合并，得到最终结果。 

另外，如库中有其它辅助库，其原理和上述方法相 
同，只不过在比较相应域中的内容时，可借助辅助库进 
行。 

* 具体实践中可根据实际情况，选用上述方法的某 
一种。 

下面给出第二种方法检索数据库和计算 TS 的框 
图。 
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i 己 K 该记录地址 


检索数据库流程图 


结束语 

以上所述方法均已在实践中应用，收到了高效灵 
活、极为方便的好效果。 

本文的写作得到河北机电学院电子系付主任徐春 
明老师的热情指导,在此表示衷心感谢。 



STOP 表示栈指针计算 TS 框图 

参考资料 

J . 《数据结构与程序设计技术》〔西德〕 H . H . 莫勒 
菁孙永强张然译科学出版社 1 M1 年 8 月 
2 .《实 用数据结构》®义兴夏炬汤宝骥编上 
海科学技术出版社1987年2月。 
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•报摘. 


系统工程教学模拟^系统通过 I 定 

一种多功能大型计算机辅助教学系统——系统工程教学模拟系统，在长沙国防科技大学通过鉴定。由我国著 
名计笄机专家慈云桂教授担任主任委员的鉴定委员会一致认为，该系统达到了 80年代中期国际同类系统水平, 
在国内处于领先地位。其中的军事运筹学软件超过了美国件水平，课件写作系统在国内厲于首次鉴定。 

系统工程教学模拟系统由硬件系统、软件系统和课件系统三大部分组成。硬件系统包括 VAX 小型机、多台磁 
盘机、磁带机、打印机、控制台、字符终端，图型终端机和 PC 机等。软件系统除计算机系统软件外,还有网络软件 
以及由图形、文字、声音、歌曲编辑、编译、运行、联机辅助和 CA 1 管理组成的课件写作系统。课件系统包括系统分 
析与决策子系统、信息系统、高等数学 CA 1、 军事运筹学 CAI 和语言图形子系统等。 

该系统适用于各类学校授课、辅导、命题、实验、演示和教学管理等，是一种图、文、声兼备的多媒体现代化教 
学手段。它的研制成功，标着着我国计符机技术已经深入教学领域，传统的教师讲、学生听的教学方式，将由大屏 
幕上一幅幅形象生动、色彩鲜明、音像和谐的动画、曲线，图形以及伴随的语言所代替，给教学 If 业带来一场深刻 
的革命。 
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• 初学者园地 • 


Applesoft BASIC 入门 ( 连载 ) 
第一讲从 PRINT 讲起 


你购置了一台苹果机，你一定想学会怎样把它开 
起来。你手边可能有一些电脑刊物，你一定想读懂上面 
的文章，特别是程序。如果你是一个从未接触过电脑的 
新手，你一定缺乏用 basic 语言编程的经验。那么，这 
个专栏就是为你开设的，我们把它称之为 Applesoft 
BASIC 入门。只要你仔细阅读每期的文章，并作实例 
练习，你便会掌握 Applesoft 编程的基本知识 ，即： 

• 编程的基本概念 
• 与苹果机进行会话所需的字汇 
• 将程序设想转变成工作程序的过程 

在这一讲中，我们首先从 PRINT 讲起。你在本讲 
中会遇到一些实例练习，通过反复练习来掌握 PRINT 
的用法及与它有关的一些命令。学习本讲的目的是为 
今后的学习打下坚实的基础。 

假设你拥有苹果 II 系列电脑 （n + , n e，B C 或 
IUs )， 它们的内存容董对我们无关重要，因为我们列 
出的大部分实例，不要求过大的内存。一般市售的软件 
附带的教学材料，只教你如何装入并运行这些软件，而 
我们却要向你介绍编程知识。 

PRINT 面面观 

在开始讲 Applesoft BASIC 程序之前，我们先看一 
看 BASIC 在与苹果机进行会话时所使用的一些字(或 
语句），其中最常用的一个字是 PRINT 。 

在 BASIC 语言中， PRINT 这个字是用来显示各种 
信息的一个命令。 print 后面可以使用各种限定词来 
组成屏幕显示信息。这些限定词可以是数字、字符或告 
诉电脑显示什么及如何显示的命令。一个含有 PRINT 
及限定词的程序行叫作 PRINT 语句。 

PRINT 语句规定显示的数据及其显示格式。显示 
是从光标(一个闪烁发亮的小方框)所在的位置，自左 
向右显示在屏幕上。通常，苹果机屏幕上每一横行可显 
示40个位置 (40 列），每一屏可显示24个横行。当一 
屏全显示满了时，最上边的一行使滚动出屏幕，而最下 
边则出现一个新的横行。1^(带80列卡)、1^和110 38 
还有显示每行80列的方式，只要键入 PR #3 并按回 
车键，即可显示80列。为了方便起见，本讲所举的实例 
都采用每行40列方式。 

那么, PRINT 到底能做哪些 事呢？ 现在，请你键入 
PRINT 这几个字符，再按回车键。这时你会看到，屏幕 
上的光标向下移动了一行。在电脑中，这叫作换行。为 
了节省键入次数，你可以用问号 (?) 代替 PRINT 。 机器 


把“?”看作 PRINT 的缩写。但在本讲中，我们并不使用 
它的省略形式，以便大家学得更清楚。 

从上例可知，回车键表示一行程序结束，电脑立即 
执行 PRINT 语句。因此，这种类型的语句又叫作立即 
执行命令。假若在这一语句之前加上行号，则称为延期 
执行命令。这时，按回车键它并不运行，只有用 RUN 命 
令去执行它才行。为了看清二者之间的区别，现在请你 
键入： 

10 PRINT 

再按回车键。会发生什么情况？光标并不下移一 
行。你再键入 RUN ， 按回车键。这时 RUN 命令告诉电 
脑去执行延期执行命令 PRINT ， 光标下移一行。实际 
上，你编写了一个最简单的只有一行的程序。 BASIC 程 
序是由一系列编有行号的程序行组成的。每一行包括 
一个或几个命令。当电脑读取这些命令时，便会执行它 
们。行号不得小于0,不得大于63999。在执行程序时， 
BASIC 便利用各种命令去获得信息、处理这些信息、并 
显示处理的结果。 

下面你再继续键入更多的几行 PRINT 语句： 

10 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 

再键入 RUN 命令。这时你会看到，屏幕上出现了 
四行空行。如果你想看一看刚才编写的这个程序，请你 
键入 LIST 命令，并按回车键。此时，屏幕上将显示整个 
程序，从最小行号到最大行号。正如你所看到的，当你 
键入一行程序，（及其行号)时，电脑把它存在内存中， 
LIST 命令就是把存放在内存中的程序调出来。 

上边的四行程序也可以用一行程序来代替，达到 
同样效果。首先键入 NEW 命令，清除当前内存中的程 
序，然后 键入： 

10 PRINT ： PRINT ： PRINT ： PRINT 
RUN 

此时，光标也和上面的一样，下移四行。不论是立 
即执行方式，还是延期执行方式，你都可以把许多语句 
组织在一行程序内。但要有一些限制。各语句之间要 
用冒号隔开，行的总长度不得超过239个字符。 

在练习本讲的各个实例时，你需要使用两个常用 
的命令 NEW 和 LIST 。 若要査看当前内存中的程序，使 
用 LIST •命令。 
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清除内存，输入新程序前，先按 NEW 命令。 


显示字符 PRINT 语句的主要作用是在屏 


幕上显示字符。不论要显示的是何种数据，你都要给 
PRINT 命令添加一些限定词。例如, 键入： 

PRINT 53721 

你的苹果机就会在屏幕上 显示： 

53721 

由此可见，显示数字数据时，只要在 PRINT 之后 
直接键入数字即可。 PRINT 命令同样能完成计算并显 
示它们的结果。如果你 键入： 

PRINT 5+3+7+2+1 

此时屏幕将显示各数相加的总和，而不是各个数 
字。再作一些练习。请 键入： 

PRINT (5+3+7)/(2+1) 

PRINT 5+(7* 3) + 2+] 

PRINT 5+(7-3) * (2+1) 

各种运算结果都不一样。 

上面的数字、运算符（+、一、/、 * ，分别表示加、 
减、除、乘)组合在一起，称为表达式。我们所做的工作， 
便是对表达式进行评价。 

显示一些字符（一个字符、多个字符或字符与数 
字)略为复杂些，所有字符和数字都要用双引号括起来 
才能显示。在电脑界,这些字符与数字称为字符串。下 
面是一个简单的字符串练习，请 键入： 

NEW 

10 PRINT“THE NUMBERS ARE ” 

20 PRINT 53721 


RUN 

下面是另一个字符串练习，请 键入: 
NEW 


10 PRINT“THE SUM OF 5+3+7+2+1 IS ” 

20 PRINT 5+3+7+2+1 

RUN 


第 10 行显示字符串，第 20 行显示该表达式的运 
算结果。 


PRINT 与逗号 
联用 


在 PRINT 语句中使用逗号， 


等于在打字机上使用空格定位。在苹果机40列屏幕 
上，第一定位区是自左向右16个字符位置，第二定位 
区是 I 7 至32字符位置，第三定位区是33至40字符 
位置。例如，请 键入： 


PRINT 5,3,7 

这时你会看到，这三个数字各在每一定位区的首 
位 出现： 


PRINT 5,3,7,2，1 

这时你会发现，后边的两个数字显示在第二行的 
第一定位区与第二定位区的首位。 

上面实例是立即执行方式。你也可以给它们加上 
行号，变成延期执行方式，其运行显示结果都一样。但 
有一个例外，即在带双引号的语句中出现的逗号，仍显 
示逗号。例如，请 键入： 

PRINT “5,3,7,2，1” 

这时，逗号被电脑看成是一个字符，而不是定位格 
式说明，它同样被显示在屏幕上。 


_^分号分号 0) 在酬丁语句中起 


消除回车换行的作用。在我们举过的实例中，在第10 
行的末尾加上分号，会产生什结果呢？请 键入： 

10 PRINT“THE NUMBERS ARE ” ； 

20 PRINT 53721 
RUN 

这时，屏幕将 显示： 

THE NUMBERS ARE 53721 
由此可见，分号在屏幕显示格式上起着很重要的 
作用。你也可以在一个 PRINT 语句中用分号把几个项 
目隔开，而运行的结果，会将几个项目联在一起。 


PRINT SPC ( n ) SPC ( n ) 提供了另外一种格 


式功能。在 PRINT 语句中使用它时，它在前后两个项 
目之间插入 n 个空格， n 为0〜255之间的整数。 

在每一个数字之间加些空格可用 SPC ( n )， 请键入 
下面的 语句： 

PRINT 5; SPC (5),3 ; SPC (5) ; 7 ; SPC (5);2 
屏幕显示结果是在5,3,7,2之间各空5个格。被 
SPC ( n ) 指定的空格是相对的，即光标由前面显示的 
项，移动了指定的空格到后项的首字符，而不是从行首 
开始。 


PRINT TAB ( n ) TAB 命令是从行首(最左边) 


开始留出 n 个空格。前面已讲过，逗号是从一行的最左 
边开始，留出三个 TAB 空格定 位区; SPC ( n ) 是在前后 
两项之间留出 n 个空格 ; 而丁/^00则是供用户自己定 
义空格区。请键入 下例： 

PRINT TAB (5),5； TAB (10)；3 jTAB (15)； 
7 jTAB (20),2； TAB (25 )；l 
TAB ( n ) 中的 n 应为 0 〜 255 的整数。其中1〜40 
为第一行位置，41为第二行首位置，以此类推。 

TAB 只能使光标向右移动。如果 n 的值小于当前 
光标位置，则光标不会移动。（未完待续） 

冯静译自 《 NIBBLE 》， 


5 3 7 


JULY 1989, 


又如，请 键入: 


VOL 10/ NO . 7, 
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gCCCCCC€€^ 

:!竞赛园地 1! 

^3 33 33 33 ^^ 


编 者按： 

敬爱的青少年朋友们，在世界已进入斗智的新时代，最珍贵的资源是智力，最有竞争性的能 
力是智慧。为了鼓励创造性的思维，培养同学们的观察力、逻辑思维和抽象思维能力，增强竞争 
意识，使大家的聪明才智得到充分发挥，我们特开辟“竟赛园地”专栏。希望大家喜爱和踊跃参 

加 。 

本栏目赛题有编程、命题软件、硬件知识三种，每期一题，顺次交替，隔期公布评审结果。评 
分标准是科学性、故果与技巧、可维修性及文挡等。评审小组组长请吴文虎教授 担任。 

每次竞赛评选出一等笑一名，二等奖二名，三等奖三名。奖品内容与每次赛题同时公布。如 
全年获得六次一等笑者，将发给重笑。 

参赛者应寄送编程软盘和说明书。说明书中应包括设计思想、所用工具软件名称和操作范 
规。硬件知识竞赛只寄交试题答卷。 

每次赛题答案的接收日期截止与赛题同时公布。 

第 一次竞 赛试题 


(1989 年国际奥林匹克信息学竞赛试题) 


试题： 

2 * N 个盒子排成一行，其中有两个相邻 
的空盒，有 N -1 个盒子含有符号 “ A ”， 有 N — 


1个盒子含有符号 “ B ”。 
例如 N =5 可有 


A 

B 

B 

A 



A 

B 

A 

B 


交换 规则: 任意两个非空相邻盒子中的 
内容可移入两个空盒中，但不得变更两符号 
的前后次序。 

目标： 

将全部 “ A ” 放到全部 “ B ” 的左边，不管相 
邻两空盒在哪儿。 

问 题:编 写如下要求的 程序： 

1. 由键盘输入盒子数目与初始状态，模 
拟交换过程。交换时需输入两个相邻非空盒 
子的左侧编号。程序需能查看和显示经交换 
之后的各盒子的状态。 


2. 给出一个初始状态，找出至少一种符 
合目标要求的交换方案（如果该方案存在的 
话），每个方案应含初始状态及各个中间步 
骤。 

3 . 找出达到目标要求的最少交换次数的 
方案。 

接收答案截止日期 

1990年4月30日（以当地邮戳为准） 

奖品： 

一等奖 

结构化 BASIC 语言系统盘壹张 
二等奖 

本社出版应用或游戏软盘壹张 
三等奖 

结构化 BASIC 语言设计基础(书)壹本 
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一般的游戏均是在高分辨率或低辨率图形方式下 
运行的。下面介绍的是一则在文本状态下的游戏程序。 

游戏开始时，屏幕上有一列由6颗“ * ”组成的物 
体，就叫它是一条“蛇”吧。 

这条“蛇”专门吃数。一上来有三个数随机地分布 
在屏幕上，你操纵它从1“吃”到3,然后换下一幕，这时 
屏幕上有4个数。如果每次你所操纵的“蛇”都能顺利 
“吃”完这些数，屏幕上就会不断增加数。难度也就越来 
越大。每“吃”一个数，你可以得3分。机器帮你统计这 
一局共得多少分，其中最高分又是多少。通过比较你可 
以不断激励自己争取得到更高的分数。 

该程序也可以由两个人轮流玩，看谁的得分高。 

这条“蛇”绝不能“吃”那些不是数的字母，你要小 
心地避开那些障碍。它也不能试图越过边界，另外，它 
绝对 f 能走“回头路”。 

整个游戏只用 I ， J ， K ， L 四个键来控制“蛇”的运 


动。 

“蛇”爬行的速度可以从1到7进行选择，】最快， 
7最慢。当然，“蛇”爬得越快，你操纵它的运动也越难， 
趣味性也会更高。你可以在开始时选择它的爬行速度， 
也可以在一局终了时重新改变它的运动速度。 

程序在 CEC - I、APPLE - n 及其兼容机上均可运 
行。运行后，每次要键入 “ S ” 就可以让你玩得非常高兴。 

如何去玩，怎样操作，屏幕上均有提示。祝你玩得 
痛快。 

10 DIM NC (4), NR (4), XP (6), YP (6)： NORMAL ： 
TEXT ： HOME 

20 HS =0： P $ =“• ，，: FOR X = 2 TO 38： P $ = P $ + 

“• ，，: NEXT X 

30 FOR X = 0 TO 4 ：READ NC ( X )， NR ( X ) :NEXT X 
40 FOR X = 768 TO 796 : READ ML ： POKE X ， ML : 
NEXT X 

50 GOSUB 1000 ：VTAB 5 ：HTAB 1 
60 PRINT “SET THE SPEED FACTOR BY ENTERING 
A ” 

70 PRINT “NUMBER BETWEEN 1 ( FASTEST ) AND 
7” 

80 PRINT “( SLOWEST ). ，， 

90 GET K $ : SP = fVAL ( K $ )-1 
100 IF SP <0 OR SP >6 THEN PRINT CHR $ (7)： GO - 
TO 90 
110 PRINT 

120 PRINT “THESE KEYS CONTROL THE SNAKE，S 
MOVEMENT :，， 

130 GOSUB 4000: PRINT:PRINT 

140 PRINT：PRINT “PRESS ( S>TO START ，，， 

150 PRINT TAB (7) 广 < C > TO CHANGE SPEED FAC ¬ 
TOR , OR M 

160 PRINT TAB (7);“〈 Q〉TO QUIT . M 
170 GET K $ :IF K $ =“ S，，THEN 210 
180 IF K $ =“ Q ” THEN HOME : END 
200 GOTO 170 
210 LVL =1 ：SC = 0 
220 POKE —16368,0 
230 HOME ; N =1： HP =1 
240 TT = LVL +2 :IF TT >7 THEN TT =7 
250 FOR X =1 TO 6： XP ( X ) = 9- X ： YP ( X ) = 16： 
NEXT X 

260 PRINT TAB (2)； P $ 

270 FOR X =1 TO 16 ：PRINT TAB (2);“. ，， 

280 INVERSE : PRINT SPC (36) ；： NORMAL : PRINT 
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290 NEXT X：PRINT TAB (2)； P $ 

300 INVERSE：FOR X =1 TO 1 NT (RND (1) * 3) + 9 
310 VTAB INT (RND (1) * 12) + 4 :HTAB INT (RND 
(1) * 32) + 5 

320 PRINT CHR $ ( INT(RND (1) * 26) + 65) 

330 NEXT X : FOR X = I TO TT 
340 A = INT (RND (1) * 12) + 4 ：B = INT (: RND (1) 
* 30)46 

350 CH = SCRN ( B -1,2* ( A -1 )) + 16 * SCRN(B 
-1,2* ( A - l)-f 1) 

360 IF CH < >32 THEN 340 

370 VTAB A：HTAB B：PRINT CHR $ (48+ X):NEXT 
X ： NORMAL 

380 VTAB 16 ：HTAB 3： PRINT “ ****** ” 

390 VTAB 19 -.HTAB 7 ：PRINT “ SCORE : ”；SC 
400 VTAB 19 :HTAB 25 ：PRINT “ LEVEL :，，; LVL : GO - 
SUB 1000 

410 DX =1 ：DY =0 

420 FOR DE =0 TO SP * 6 ：NEXT DE 

430 K = PEEK ( —16384) :IF K 〈128 THEN 460 

440 POKE -16368,0 ：IF K <201 OR >204 THEN 460 

450 DK ^= K -200 ：DX = NC ( DK ) ：DY = NR ( DK ) 

460 TX = XP ( HP )+ DX:TY = YP ( HP)+DY 
470 FOR DE =0 TO SP * 5 ：NEXT DE 
480 CH = SCRN ( TX —1，2 * ( TY -1)) + 16 * SCRN 
( TX -1,2* ( TY —1) + 1) 

490 IF CH = 32 THEN 550 
500 IF CH -48< >N THEN 590 
510 N = N - hl ： T =50 ：GOSUB 3000 
520 SC = SC +( CH -/18) * 3* (7- SP ) 

530 VTAB 19： HTAB 14： PRINT SC 

540 IF N = TT-f 1 THEN LVL = LVL +1 :GOTO 220 


550 HP = HP -1 ：IF HP 〈1 THEN HP =6 
560 VTAB YP ( HP )： HTAB XP ( HP )： PRINT CHR 
$ (32) 

570 XP ( HP)=TX : YP ( HP)=TY 

580 VTAB TY：HTAB TX：PRINT * ，，: GOTO 420 

590 FOR X =1 TO 30 

600 VTAB TY：HTAB TX : PRINT CHR $ ( INT(RND 
( l )*3) + 42) 

610 T =INT (RND (1) * 100) + 50 ：GOSUB 3000 
620 NEXT X：GOSUB 1000 

630 VTAB 4 ：HTAB 1 ：PRINT “TOUGH LUCK ! YOU 
RAN INTO ，、 

640 IF CJ =42 THEN PRINT “YOURSELF • ，，: GOTO 
660 

650 PRINT “ SOMETHING . ” 

660 PRINT ：PRINT “YOUR SCORE WAS “； SC ;“. ，’ 

670 IF SC)HS THEN HS=SC 

680 PRINT “THEN HIGH SCORE IF “； HS ” 

690 PRINT : PRINT “ PRESS 〈 S>TO START AGAIN ， 
“： GOTO 150 

1000 HOME : VTAB 2： HTAB 9 
1010 PRINT “ * —— THE NUMBERS 5 NAKE - * : 
RETURN 

3000 POKE 8， T:POKE 6,2 :CALL 768 ：RETURN 
4000 PRINT : PRINT TAB (3) ; “〈 J > = LEFT < L > = 
RIGHT < I )= UP 〈 K 〉= DOWN ” 

4030 RETURN 

5000 DATA 0,0,0, —1,-1 ,0,0,1,1,0 
6000 DATA 165,8,74,133,10,164,8,173,48,192, 
136,234 

6010 DATA 234,208,251,165,7,56,229,10,133,7, 
176,237 

6020 DATA 198 ,6,208,233, 96 


•报摘 • 

电脑作曲机 

菲利浦最近推出新产品“电脑作曲机”，使不会作曲的人也能一尝作曲乐趣。 

“电脑作曲机”体积轻巧，具有作曲、编曲、演奏及录音功能。 

“电脑作曲机”内储存了各种节奏程序的旋律及和音，并具备控制混音和修饰高低音的功能。分设有三种不同 
难％ 程度的弹奏 功能。 根本不僅乐理的人只要使用第一级 功能。 毫无系统地随意弹奏，电脑程序就会加以整理， 
演绛出和谐的乐声。创作的曲子还可以利用电脑功能将之 K ： 存于卡式录音带上，随时存取进行整理和修改。 

世界第一座电脑图书馆 

《光明曰报》讯，世界上第一座电脑图书馆最近在日本建成。有私人电脑的日本读者，都可以享受到这家图书 
馆的服务，读者可以坐在家中，利用程序查阅曰本60家大报、60家杂志和3000本普通杂志，以及文摘资料，以免 
奔波借阅之苦。 （陈延） 89. 7. 31 
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软件目 





，/ 


教学软件 


软件名称 

盘数 

定价(元) 

1.高中生物自我评定(蛋白质） 

1 

15.00 

2. 高中生物自测习题(遗传物质基础） 

1 

15. 00 

3. 生物细胞分裂示教 

1 

15. 00 

4.植物生理部分示教 

1 

15. 00 

5. 高中物理(横波与纵波园周运动） 

1 

15.00 

6. 游标卡尺、螺旋测微器读数练习 

1 

15. 00 

7•常用测量仪读数练习 

1 

15. 00 

8 •力学与振动 

1 

14. 00 

9. 运动学 

2 

25. 00 

10.斜抛运动 

1 

14. 00 

11.光的折射 

1 

14. 00 

12. 几何光学 

2 

25. 00 

13. 物理练习 

4 

45. 00 

14•初中古汉语复习 

2 

26. 00 

15.唐诗学习 

2 

25.00 

16•看图识字 

1 

14. 00 

17. 儿童识数、识图、识英文字母 

1 

14. 00 

18.汉语拼音教学(一 ）( 二） 

2 

28. 00 

19.初中英语 ( ESS 4. 0) 

2 

26. 00 

20.高中英语 CESS 4. 0) 

2 

26. 00 

21.新概念英语 ( ESS 4. 0) 

5 

50. 00 

22. 小熊学英文 

1 

15. 00 

23.英语词汇练习 

7 

90.00 

24. 小学数学 

1 

15.00 

25.四则运算 

1 

14. 00 

26•分数四则运算 

1 

14. 00 

27. 平面解析几何 

1 

14. 00 

28.平面解析几何习题 

2 

25. 00 

29.三角函数复习与练习 

1 

14. 00 

30. 数学公式温习强记 

1 

14. 00 

31.解-元一次方程(一 ）( 二） 

2 

14. 00 

32. 用十字相乘法解一元二次方程 

1 

14. 00 

33.解二元方程 

1 

14. 00 

34.二项式乘法 

1 

14. 00 

35. 争项 式的因式分解 

1 

14. 00 

36. ik 学试验室 

1 

14. 00 

37. 氢氧碳化学反应模拟 

1 

14. 00 

38.高中化学复习 

1 

14. .00 

39. 化学方程式检索 

3 

40. 00 


工具系统软件 


软件名称 

盘数 

定价(元) 

1. 结构化 BASIC 语言解释系统 

1 

95. 00 

2. DIM BASIC 解释系统 

1 

95. 00 

3. 微机通讯数据庳系统(带卡） 

6 

950. 00 

4. Apple Turbo Pascal 系统 

1 

50. 00 

5. 中华学习机系统主盘 

1 

35. 00 

6. 五笔字型和快速法软汉字系统 

1 

35. 00 

7. 电脑图案设计系统 

1 

150. 00 

8. 汉卡中文 CP/M 系统 

1 

120. 00 

9•汉字统计管理通用系统 

1 

55. 00 

10. CEC— I 中英文编辑软件 

1 

35. 00 

11. DOS 扩充工具 

1 

14. 00 

12. DOS 移上 RAM 卡 

1 

14. 00 

13. DOS 指令更改器 

1 

14. 00 

14. DOS 设计器 

1 

14. 00 

15. ZL 汉字系统及字库 

1 

62. 00 

16. 汉字文章编辑系统(软汉字） 

2 

65. 00 

17_汉字文章编辑系统(硬汉字） 

1 

65. 00 

18. 汉字 DBASE 数据库(软汉字） 

2 

65. 00 

19- 积木式组合软件包 

\ 

65. 00 

20. CEC—I 绘图系统 

1 

14. 00 

21. CEC-I 五笔字形输入系统 

1 

25.00 

22. 中西文 CP/M 磁盘操作系统 

3 

45. 00 

23. 日字文字处理系统 

1 

14. 00 

24. 超级 DOS 1.2 

1 

25. 00 

25. 超级 DOS 1.6 

1 

35. 00 

26. Z -80 CP/M 系统工具 

1 

14. 00 

27 .STC 4. 0系统 

\ 

^0. 00 

28 .STC 3. 14系统 

2 

40. 00 


应用软件 


软件名称 

盘数 

定价（元) 

1.美术设计师 

1 

15. 00 

2.室内设计师 

1 

14. 00 

3 •货款利息分类计算 

1 

14. 00 

4•万用统计图表制作 

1 

14. 00 

5. 百年中西电子日历 

1 

14. 00 

6. ZL 工资管理软件 

1 

60. 00 

7. 学生成绩统计与试卷分析 

] 

14. 00 

8. 人体生命钟曲线 

1 

14. 00 

9.服装裁剪 

1 

14. 00 

10.身高预测 

1 

14. 00 

11. 打字指法练习 

1 

14. 00 


注： 另加收10%的邮费 
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极计算 机公 1 司 
华北计算技术研究所 



在辉煌的九十年代，作为中国民族计算机支柱企业 
的太极计算机公司(华北计算技术研究所)，将一>如既往. 
高举国产化民族产 企的 旗帜，与各界同仁协手 *!<#, 共 
创美好未来，实现服务全国、走向世界的宏伟目&。划 
时代的太极二 ooo 系列计算机将面向国民经济各个领 
域，为各界用户提供全方位的服务。太极为您尽心度力。 


地址： 北京德外蕖子播甲六咢北*六九懷»六十五分箱 酺政 _« 100083 电话： 2015968 2017661-614 龜报： 2422 电传： 222630 NCI 传真： 2018902 






优质可靠的保证 









HG286 微机 



国家二级企业潍坊计算机公司是开 
发、生产经营计算机、通信、汉字信息处 
理等办公自动化系统、教育与家用电脑 
的高技术实业集团公司。公司所属微电 
脑厂是生产计算机系列产品的专业厂， 
产品有部优名牌 DJS — 033华光牌 CEC 
—1、 CEC —1 A 、 CEC - PC 型中华学习机， 
华光0520、286系列机、华光简易轻印刷 
与中档轻印刷系统。在全国主要城市建 
有数十家维修服务网点,服务周到,维修 
及时,竭诚为您和您的家庭服务。 


〈華 光 〉 CEC — 1中蓽學習槺 


HG0520C 微机 




濰坊計算機公司 


地址:潍坊市东风大街 60 号 
电话 425397 226921( 总机） 
电报:0308 

电传: 324304 CCWF CN 
传真 ： 225397 
邮码 :261041 

















